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3 
SETFILE 1b-sep-19 00:53:51 AX-11 Bliss-32 V4.0-742 
| 14-Sep-1984 12:09:07 CLIUTL.SRC SEfFic 0558. 1 
ls 1 MODULE setfile ( 
3 § IDENT = *v04-000', 
l3 ADDRESSING MODE (EXTERNAL=GENERAL 
\3 $ ¥ NONEX TERNAL SLONG. RELATIVE) 
28 ] BEGIN 
; 1! 
s 3 10 : es coal Gei'tore. ‘en “Weer tear Gt et eee 
P :* : 
s 11 11. 1 !@ (COPYRIGHT (c) 1978, 1980, 1982, 1984 ° 
$ 1 if 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
: + Fe : - ALL RIGHTS RESERVED. . 
; 15 1§ 1 ie alg SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corte * 
; 18 1 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF renee LICENSE AND WITH THE ” 
: 1 1 1 ie Sti OF i Fe ye  eser NOTICE. S SOFTWARE OR ANY OTHER * 
4 18 18 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR STHERUTSE MADE AVAILABLE TO ANY * 
; 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
3 , base : :: TRANSFERRED. 
Py 4 % 
3 ¢ 00 ¢ 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 00 1 '= AND a a pee NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 : oe $ : - CORPORA TION. * 
Py 4 & 
; 6 00 $ 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; . 8 i ; > SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: 0099 1 is ° 
3 ? ts! ’ , SeecesonsnoseesnonenesonoNnnsNeseosenoNeneseorsonsesensesotesoeoeTeneeslese 
; é 005¢ 1 i 
: 0035 1 !++ 
: : it } : FACILITY: Set File Command 
3 ‘ 003 ABSTRACT: 
3 H3 4 : This module processes the Set File command. 
; 4¢ 9040 ENVIRONMENT : 
3 : O0e§ : Vax native, privileged user mode 
; & 4 1 ie 
tae bees 1: 
: ry poeg ' AUTHOR: Gerry Smith CREATION DATE: 04-Aug-1981 
E 48 0048 MODIFIED BY: 
: 650 0050 1: v03-023 AEWO00S e E. 24-Jul-1984 
oS ae 51 1! Make VEXPIRATION” DATE — 76 OBAL BUFFERS check if 
3 25 26 1/ the qualifier is: present before trying to get any values 
Fae | 53 1: associated with it. This is needed because these qualifiers 
: 33 pee ; are now negatable. 
: 56 36 1 i v03-022 BL $0303 Benn Schreiber 12-APR-1984 
a 0057 1: Parse null string after parse in /enter code. 
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d 3 
16-Sep-19 753: AX-11 Bliss-32 V 742 2 
12280071382 99:38:07 CLIUTL.SRC SeqF ie LTE 1 ne af 
ves-tel 8 w0004 ec. 10-Apr-1984 
x SET FILE/PROTECTION - "that it handles wildcarding. 
v03-020 MCNO156 ase 08-Mar-1984 


tf the user seuctfien (ver Ens ions » then it should default 
$5 7558 —- yaiye: 6 Also, the maximum value is 


v03-019 AEWOO0O3 Anne E. Warner 28-F eb-1984 
Add support for search Lists 
- remove related name block” from RMS definitions. 
- add argunient to LIBSFILE_SCAN 


v03-018 LMP0191 L. Mark Pilant 10-Feb-1984 16:27 
Validate the value of the /duNER qualifier. 


v03-017 DAS0002 David Solomon 6-Feb-1984 
Speci ty ACESM _NOPROPAGATE for RMSJNLID ACE. Disable /JOURNAL. 


v03-016 AEWO002 15-Dec-1983 
1 seam tes woe fo nt vith keywords /CONF IRM and 


v03-015 JjwT0139 Jim Teague 09-Nov-1983 
Change | the name of two of the RU fields; ensure that 
we don’t leave the file set with conflicting RU 
attributes. 


v03-014 AEWO001 e Warner 08-Nov-1983 
1 amano ment tiles with “ hopwards /CONF IRM and 


v03-013 pa AS0001 David Sol 29-Jul-1983 
Fold /AJ_JOURNAL, 781 , JOURNAL and /AT_JOURNAL into are 
on the /JOURNAL qualifier. /JOQURNAL keyword RUM is 
ONLY_RU. Add NEVER_RU a a few Journal ing-related fixes. 


vO3-012 GAS0147 at A 27-Jun-1983 
change the file atte hen sedi fication so that it is 
done thru a 10$_MODIFY instead of simply during the 
IO$_DEACCESS. This is necessary for the case of 
the-version Limit, since it cannot be changed on file 
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19) deaccess. 

108 v03-011 GASO141 Gerry Smith 17-Jun-1983 

104 Signal all common qualifiers more completely, so that 

19? the specified file can be found. 

1 v03-010 KPLO0002 Peter Lieberwirth 30-May-1983 

4 Change JSBSS_JNLNAM to CJFSC_MXJNLNAML. 
O10 v03-009 KPL0001 Peter Lieberwirth 20-A _—r" 

111 Set journal names via new qual iFiers Al Our ® si. JOURNAL , 
Big and AT_JOURNAL. When marking the file Tor journaling, 
Bi write an RMSJNLID ACE. 
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1b-se “19 7:53:51 AX-11 Bliss-32 v4.0-742 Pa 3 
12-208- 1 98e 90:53:3) CLIUTL.SRCIJSETFILE.832;1 - (1) 
v03-008 GASO118 Gerry Smith 12-Apr-1983 
Add the common qualifiers. 
v03-007 GAS0112 Gerry Smith 30-Mar-1983 
Convert to the new cli interface, as well as a new 


command dispatcher. 


v03-006 TMK0001 Todd M. Katz 28-F eb-1983 
If someone requested Al Journal | ing on a file to be turned 
off (/JOURNAL=NOAI) then turn it off. Currently, Al Journalling 
will always be enabled whenever it is explicitely refered to 
cesta or /JOURNAL=NOAI), and there is no way to disable 


v03-005 GAS0091 Gerry Smith 19=0c t-1982 
Change input request for new CLD syntax. 


v03-004 GAS0083 Gerry Smith 15-Jul-1982 
Modify logic for RU leurnal option, to agree with 
new definition. The RUJNL bit used to have the opposite 
sense of all other journal bits. It now has the same sense. 


v03-003 GAS0071 Gerry Smith 8-Apr-1982 
If the writer count for a file is non-zero, don't allow 
modification. If /END is attempted on INDEXF .SYS, don't 


allow it. 
v03-002 GAS0068 Gerry Smith 31-Mar-1982 
If a truncate is attempted on an indexed file, signal 
an error. 
v03-001 GAS0064 Sorry Smith 19-Mar-1982 
Change check of qualifiers to include /GLOBAL_BUFFERS. 
v03-005 GAS0050 Gerry Smith 22-Feb-1982 


Ly access the file header for something besides 

JENTER or /REMOVE. Make the error messages for /ENTER 
and /REMOVE more meaningful. Change the /ENTER check for 
same devices to use the DVI fields of the NAM blocks. 


v03-004 GAS0047 Gerry Smith 15-Feb-1982 
For SET FILE/ENTER, parse the new file name here, after 
the old file name is available, so that stickiness can 
be applied. 


v03-003 GAS0038 Gerry Smith 
Add /GLOBAL_BUFFERS, the giebel buffer count for a 
file, Also, if the file 1s ODS1, then move the record 
attributes to the location occupied in an ODS2 file. 
This allows the BIND in routine SET_ATTRIBUTES to apply 
to both kinds of file headers. 


v03-002 GAS0026 Sorry Smith 18-Dec-1981 
Use shared message file, and iower fatal messages to 
simple error messages. 


v03-001 GAS0024 Gerry Smith 14-Dec-1981 


2-F eb-1982 


Se ao ee 


if 
-1 AX-11 Bliss-32 V4.0-742 
Wbue Ob 1$-se0-198 HH en CORT es Tatra ia Le 
: } 178 } : Fix /LOG Logic for /ENTER and /REMOVE 
: i 03-001 mSH0001 Maryann Hinden 02-Dec-1981 
5 $ ; we Change references t) F 1BSC nSize to FIBSC_LENGTH. 
: 17 1 $ i i v03-001 GAS0021 Gerry Smith 30-Nov-1981 
: 178 i ; Fix /VERSION, making rip larger 
: 4 1 13 v03-001 GAS0018 Gerry Smith 16-Nov-1981 
3 ; ; ; : } Split SET FILE into sper modules 
: 1 1 i v03-001 GAS0011 Gerry Smi 22-Sep-1981 
3 : ; : : } Fix wildcarding for YeNTER. Add /END_OF _FILE 
: 186 1 1 i v03-002 GAS0012 Gerry Smith _ 30-Sep-1981 
+ 187 01 1! Add /LOG and /CONFIR 
3; 188 0188 1: 
: 189 0189 1 ise 
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Main routine for file 
Get qualifiers | 
Routine to get file attributes 
Common routines: 


wom 
eeow 


FORWARD ROUTINE 
= = eg NOVALUE, 
qua 
Set cattributes, 


> —) 4 5 


unlock_action, Called to control each UNLOCK action 
check privilege : NOVALUE, Routine to check for privilege 
search_error, Where to go if file search fails 
file_error Where to go if file error occur 
setpro_action Called to control each file PROTECTION 
prot_lég_results, 


Called when user requests a log for PROTECTION 
Converts binary protection to ascii 


expand_prot, 
Parses the protection of one user class 


parse_Class; 
EXTERNAL ROUTINE 


parse_uic, ' Convert a VIC 

cliSpresent, ! Get qualifiers 
cli$get_value, ! Get values of qualifiers 
LibScvt_dtb, ! Convert ASCII to numerical 
LibScvt_time, ! Convert time to internal 
LibSfile_scan, ' Routine to find next file 
Lib$Squal_file_parse, ! Parse common qualifiers 
LibSqual_file_match, ! Check for common qualifiers 
LibSconfirm_act, ! Confirm action with user 
Lib$Sget_command, ! Talk to SYSSC D 
LibSunlock_file, ! Unlocks files 

sys$fao, ! Expands formatted messages 
fyssectery ' Set privileges for protection 
l b$set_file_prot; ! Set file protection 


' 
Literal data definitions 
LITERAL 
true = 1 
false = 6; 
MACRO 


i Macro definitions for fields in access control entries needed by RMS 
Journaling 


BSESEREUNSSSSVERREN VS Sane nerwuvo-OSeornrKRwcrcSseeoen 
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id_ace$s_size = 32 %, ! size in bytes of rmsjntid ACE 
id_ace$t_label = 4,0 0.8 z, ' volume Label in rmsjnlid ACE 
id_ace$Sw_num = 1 6.16.0 ! fid num in rmsjnlid ACE 

40 2 id-ace$w_seq = 1 0.16.0 z, ! fid seq in rmsjnlid ACE 

41 ace$wirvn = 2 1 $ ! fid rvn in emsjnlid ACE 

4¢ id-ace$q-time = 24,6,32,0 &, i time in rmsjnlid ACE 

& ace$t_jnTnam = 4,0,0, {, ! journal name string in jnl ACE 


‘ 
! A) Macro to describe a string 

! B) Macro to generate a quadword string descriptor 

! €) Macro to generate the address of a string descriptor 


PRIMDESC (str) = ZCHARCOUNT (str), UPLIT (ZASCII str)% 
INITDESC (str) = SBBLOCK CDSC$C_S_BLN gettin (PRIMDESC (str))2, 
ADDRDESC (str) = UPLIT (PRIMDESC Tstr))2; 
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vo 12-8081 98e 99:38:07 Yeerore sReisere ieee 832;1 - (4) 
H ,} 

5 ; Define the data that is used by SET FILE 

; 1 GLOBAL 

3 1 setfile$flags : BITVECTORE ImTT EAL CO) é Guel i tier bits word 

; 1 settite flags : BITVECTOR INITIAL(OS, | DATA CHECK options word 

; 1 etfileSjflags : BITVECTOR INITIAL(O), ! JOUR options word 

3 1 settilesmf legs : BITVECTOR INITIAL(O), ! Mis neal eneous flags word 

$ 1 setpro_prot : WORD INITIAL(O), ! Contains /PRO oreet ON v value 
; 1 Setprenesk : WORD INITIAL(O), ! Contains /PROTECTION mask 
; 1 global _prot 8 i ! Command wi¢e protection 

3 1 global mask : ! Command w Ve mask for protection 
; 1 exp_vaTue : $esc6ckrs3, ; pxetretion date 

3 1 exte_value, ; artene on quent Sty 

; 1 gbuf“value, ! Global ~~ er value 

r} ; vic_Value, } ° ner u ee 

3 group, roup number 

3 1 member, ' Member number 

; 1 vrsn_ value, ! Version Limit 

3 1 rename_buf : ECTORCSD = maxrss BYTE), ! Name buffer ter /ENTER 

3 1 filename : VECTORE ! ENTER/REMOVE descriptor 

3 1 ai_jnt_name : VECTOREc ie -axjninaml,BYTEJ, | Al journal name 

3 1 at _jni_name : VECTORIc 3 “mxjninaml,BYTEJ, | AT journal name 

3 1 bi_jnl_name : yee lee t¢_ax mx aA ml,BYTEJ, ! BI journal name 

3 1 ai_jni_desc : SBBLOCKLdsc §-s ! AI_JOURNAL descriptor 

3 1 ESET( Cdsc$a po nter) "= ore nl_name ), 

3 1 at_jni_desc : L Kt decd _s bla ! AT_JOURNAL descriptor 

3 1 PRESET ( aecte nter]"= “ats nl_name ), 

3 1 bi_jnt done nie ems -$-P ! BI_JOURNAL descriptor 

: 1 PRESE ( tases 

3 1 worst bebe. $88.0 ein gates rareatS Worst error reported 

; : conf_desc : $BBLOCK dsc cs bln Descriptor for /LOG/CONF IRM 
3 1 oldpriv : fo eee ttt ! Permanent priv’s stored here 

: 1 newpriv $8B8L0 i Mask describing system oc ty 

3 : PRESET ccke. “ate NO By ! Initialice this b 

Fy : RMS storage 

3 1 file_result : VECTOREN $c_maxrss,BYTE) ! Resultant name string 

3 1 file“expanded VECTOREnam$c _maxrss BYTE) ! Expanded name gertag 

3 p 1 file SNAM( ! File name block 

: p 1 "ESA" z ‘file expanded, 

3 P 1 need t_maxrss, 

3 P 1 REA . file Fesult, ! File name after open 

3 1 RSS = nam$t_maxrss), 

H P 1 file fab : $FABT ' FAB for file 

3 : RAM = file_nam); ! Specify mame block 

: 1! 

3 : : Declare the context block used by the common qualifiers 

; 1 

3 1 context; 
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; 
§ 
3 
; 
9 
§ 
5 
9 
? 
5 
; 
: 
: 
5 
5 
; 
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16-Sep-19 753: AX-11 Bliss-3 

13280871382 99:35:07 CLIUTL.SRCISE 
clare the qualifier flag bits used by SET FILE 


L 
ST(QUAL_,.1,1, 
oe “ae 
fcontiracte” 
(data,) 


m= 


me 


I 


ec 


(parent,5, 
(protection,), 


( 
(quitlent,), 
(quit_protect) 
(quit=unlock,)5; 

‘ 


Declare the DATA_CHECK option bits 


SEQULST 
(DATA_,.1,1, 
(read,) ! DATA_CHECK = READ 
(write,) i DATA-CHECK = WRITE 
(noread,5 i DATATCHECK = NOREAD 
(nowrite,5); i DATATCHECK = NOWRITE 


' 
: Declare the JOURNAL option bits 
LITERAL 
SEQULST 
(JRNL_..1,1, 
(ai, 
(specified_ai.), 
at, 
(specified_at.). 


(specified_bi.), 


TUL). 


fr 


ILE .632;1 


Page 
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Ther 


ans 


5 P 1 (specified_ru,), 
3 P 1 only re ° 
3 4 : (specttie ed only. ru,) 
; ® ! (s citied _nhever_ru,), 
3 P (ai_name,), 
3 & 1 (at_name,), 
3 P : (b ~name,), 
; 1 
; 1! 
3 } : Declare the miscellaneous flags 
; 1 LITERAL 
; P 1 $e 
3 i 1 (MISC_ 
3 P 1 mere, He 5 
; i (already. teesjntid,)): 
; 1! 
; : } Declare the error messages 
3 } ; Definitions in CCLIUTL.SRCISET.MSG 
; 1 EXTERNAL LITERAL 
3 1 Lib$_quiconact, ! Quit asking for confirmation 
3 9 1 Libs _negans. ! N Sopet ive response to confirmation 
; 90 1 ti -9y pro, ' Quit processing 
3 91 #1 LibsS_filfaimat, ! Common qualifier match failed 
; 3 1 cli$_ivprot, ! Invalid protection 
3 935 1 cli$_negated, ! Value explicitly negated 
; 94 1 cli$_absent, ' Value not present and no defaul | 
3 95 1 set$_operreq, ! OPER required 
; 38 1 set$_closeerr, ' Could not close file 
: 97 1 set$_entered, ! File entered in a directory 
3 38 1 set$_enterr, ! Error entering file 
3 1 set$_modified, ! File/directory modified 
; 404 1 set$_nonode, ! Node specification not allowed 
; 1 set$_notdir ! Not a directory 
FH aoe § 1 set$_ “not Locked, ' File not locked 
3; 4 1 set =notod $e ° ! Not an ODS2 structure 
3; 4 1 set : Could not open parent directory 
; 4 5 1 nt: amet el B ! Error message - ‘Protection not changed” 
3 $19 86 q set$_proerr, ! Error in changing the protection 
3; «41 1 set$_protected, ! Informational tog message for protection 
; tig 1 set$_readerr, ! Error reading the file 
3; (41 1 set$_remerr, ' Could not ob “tile 
3 4146 ? 1 set$_removed, . pirectery on entry, ceneves 
3 «6415 2 set$_unlockerr, ' Could no oe 
3 $16 if 1 set$_writeerr, ! Error modifying tite 
3; (41 7 6% set$_unlocked; ! File unlocked 
41 41! 
3 efine messages from the shared message fac y 
ci + ' Defi f he shared facilit 
$ 421 Pp 9 1 $SHR_MSGDEF (set 119, global, 
: 6 é P 18 1 adlogic. severe), ' Fatal internal software error 
3 adva we error ! Inva eyword value 
4 P0419 1 (bs 4 ee ! Invalid k d val 


¥be-060 if: sep-1 99:38:0)  Hee Tub OsaeiseteYte%es34 Peer ot} 


3; 6 e (valerr, error), H ynts out BA. range i 
3; 6 P gSynten. error). : pro 3 
3; 6 b (confqual, error), : it tin ing erston nunbe 

3; 4 b 1 (delver, error), ! ont version ry required 

3; 6 ; P 1 gnetrunc. orrer te ' Truncation not al 

. é P > % openin erro ! Error opening af os 

; 4 6 1 (searchfail, aeortia i Error searching for a file 


N 3 
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GLOBAL ROUTINE set$file : NOVALUE = 
les 

' 

i Functional description 


This is the main control module. It calls 16S ILE SCAN to perform 
the necessary functions on the file(s) specified in the call to SET. 


Calling sequence 
CALL set$file() 

Input parameters 
none 


If NOT .status 
THEN (SIGNAL(.status); RETURN); 


] 
i Now to get all the command qualifiers. 


3 6 7 1 i 
3 6 1 i 
; 4 1 i 
; 435 1 ; 
; 4 1 ; 
; 4 1 i 
3 2 1 i 
; 440 $ | i 
3; 441 1 : 
; 44 1 : 
3 46 1 ; 
; 4 1 3 
> 445 40 1 
a to | | 
3 44 rk 1 ! Output parameters i 
; re} r¢ : none | ; 
; 45 46 1! Implicit outputs | : 
; 43 ca? : sa none “ | : 
3 454 rk 1 | Routine vatue i 
3 455 9 1 none ; 
; 45 :\s j 
; 45 26 1! Side effects : 
; 458 H 1 nore 3 
3; 459 4 1 : 
; det se tae 
; 46 43 BEGIN 3 
3 464 35 LOCAL ; 
3; 465 460 desc : SBBLOCK(dsc$c_s_blnl], : 
; £06 61 scan_context, ! Sticky context argument for FILESSCAN : 
; 46 6¢ status; : 
# ian | 
; $00 65 Check to make sure that the image is running with correct privilege. | : 
; 47 67 check_privilege(); : 
: th $9 5: | : 
: 475 26 Get the common qualifiers | ; 
> 47 ? stat LibSqual_file_parse(ZREF(Lib$m_caf_exclude OR ; 
| 3 5 eee libsmacaf~before OR 
3 (4? 74 LibSm_caf_since OR ; 
3 75 t i pee.cat created OR : 
: 1 7 LibSm_cqf_modified OR : 
3 ¢ 7 LibSm_cqf_byowner), 3 
3 7 context); ; 
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; 4 5 . NOT get quais() 

; 491 HEN RETURA; 

8 ) 

; 694 $ i Check to make sure that conflicting qualifiers were not specified. If 

: reg 39 they were, signal an error and stop. 

; re 3% 

; 498 9 if -setfile$flagsCqual_data) 

; 499 94 HEN 

; 4 95 IF .setfile$dflags(data_read] AND .setfile$dflags(data_noread] 

3 1 38 OR .setfileSdflags(data_ write] AND .setfileS$dfiags(data_nowrite] 

3 3 Bee THEN SIGNAL_STOP(set$_confqual); 

; 504 3 If .setfile$flagsCqual_journal) 
; 505 500 THEN 
; 506 501 If ( .setfile$jflags{jrnl_ru] AND .setfile$ flogst rnt_only_rul_) 
3 fOr F44 OR ( .setfileSjflagslirni_ru] AND_.setfile$jflagsljrni_never_ru] ) 

; 508 050 OR ( .setfile$jflagsljrnl_only ru] AND .setfile$jflags[jrnl_never_rul ) 

; i 0308 THEN SIGNAL_STOP(set *confqual); 

: 511 5 

3 318 0307 : Next, — each file specified, find the file and perform the operations 

; ! requested. 

3 «5146 0509 ! 

3 312 Bato Beep tantent tens , } tye aust . zero ~~ file scan 
; nit_dyndesc (desc); ! Make a dynamic descriptor 

3 219 b216 WHILE cli$get value(ZASCID ‘FILE’, desc) : . 

: a S21? AND wor .settTleSflags(qual_quit) DO 

; 3 0 0515 file_fab{fab$b_fns] = Gove} cect. Lengen ds 

g De 8218 file-fablfab$l"fna) = .descldsc$a_pointer); 

3 258 pele Lib$STile_scan( For each fite found, 

; me ! Use s fa 

; 524 0519 set_attributes, ! Go here if file found 

3 eo 0520 search_error ! Go here if error 

3 $ 0521 scan_context) 

; 05 § END; 

: 8 05 

; 44 Bees RETURN; ? 

3; > 525 1 END; ! End of routine set$file 
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79 378 BEGIN 
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/EXPIRATION_DATE 
if ¥_£\ tpresent CEASCI® *EXPIRATION_DATE*) 
fe cl fSget. value(ZASCID "EXPIRATION_DATE', desc) 


BEGIN 
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e$fla ; 
LibScvt_timée(desc, A. § value) 
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THEN 
BEG 
IGNAL(set$_syntax, 1, desc); 
ETURN false; 
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be ' JENTER 
5 a at value(ZASCID ‘ENTER’, desc) 
a Mlestle s enter) = 1; 
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desc apointerd, 
ile ane{}'="-d poi pgscéu length); 
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ND; 
END; 
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° : /EXTENSION 
6 If cli$present(ZASCID EXTENSION’) 
639 THEN 
640 BEGIN 
641 at hee phy a + ge exte) = 1; 
og exte value 
64 IF cli$get_value(ZASCID “EXTENSION', desc) 
644 ; HEN 
645 06 BEGIN 
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If NOT LibScvt_dtb(. sdesctascte- Length) 


: . “pointerd, 
exte_value) 
THEN 
BEGIN 
SIGNAL (set$_syntax, 1, desc); 
RETURN false; 
END; 
If .exte_value LSS 0 
OR .exte_ value GIR 65535 
THEN 
BEGIN 
SIGNAL (set$_syntax, 1, desc, set$_valerr); 
—— false; 


/GLOBAL _BUF FERS 
if cLiSpresent (ASCID "GLOBAL BUFFERS") 
a cli$get_value(ZASCID ‘GLOBAL_BUFFERS', desc) 
“BEGIN 
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BEGIN 

SIGNAL (set$_syntax, 1, desc); 
RETURN false; 

END; 
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BEGIN 
SIGNAL (set$ gine, 1, desc, set$_valerr); 
RETURN false 
END; 
END; 
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if cli$present(ZASCID "NODIRECTORY') 
THEN setfile$flags(qual_nodij = 1; 
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TF 16-Sep-1 :53: AX-11 Bliss-32 V4.0-742 P 5 S| 
¥Oe-000 ye-85b=1382 93:05:87 «Herat Osne ase te tte esse aoe 3 vi 
If -setpro_mask NEQ 0 ! If any protections specified 
HEN setpro_prot = NOT .setpro_prot; ! then get the complement 


Now save the connen¢ level protection in the protection 
area. If the user f d not supply a command level protection then 
the global_mask will have a value of zero. 


global_mask = .setpro_mask; 
yg lodat prot = ,setpro_prot; 
E 3 
/REMOVE 


if cli$prese 
THEN isertt 


SEES eS are 


| 
| 
| 
nt(ZASCID "REMOVE") | 
e$flags(qual_remove] = 1; 


94 

ace : 

3ep : / TRUNCATE 

951 iF cli$present(ZASCID ‘ TRUNCATE") | 
326 THEN setfile$flags(qual_trunc] = 1; 
954 ! 
955 ! /UNLOCK 
326 : | 
32 IF cli$present(ZASCID ‘UNLOCK’) 
3 THEN setfile$flags(qual_unlock] = 1; 
360 ; | 
961 i /VERSION_LIMIT 
368 IF cli$present(ZASCID "VERSION_LIMIT’) 

964 THEN | 
965 BEGIN | 
ooo set ti lesflags(gualvrsn] = 1; ! Show that /VERSION specified 
96 vrsn_value = 67; ! Set to the default 
968 IF cliSget_value(BAscip "VERSION_LIMIT', desc) | 
396 BEGIN 
971 IF NOT LibScvt_dtb(.descEdsc&u. length) 
97 desc dsc$a~pointerd, 

97 vrsn_value) 

97 THEN 

975 N 

278 SIGNAL (set$_syntax, 1, desc); 

44 FY aa false; 


IF .vrsn_value EQL 0 
THEN 
vrsn_value = 32767; 


If .vrsn_value LSS 0 
=. -vrSn_value GIR 32767 
(SIGNAL(set$_valerr); RETURN false); 
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RETURN true; 
END; 
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-LONG 
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- LONG 


-ADDRESS 
ASCII 


- LONG 


- ADDRESS 
ASCII 
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DR 


-ADDRESS P 
onze is 


= RE 
ri 
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RESS P 
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- LONG 


. DRESS 
SY 
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CLIUTL.SRC Sefri 


SPLITS,NOWRT ,NOEXE,2 
yt tna 


\ ONE RM\<0> 
Nsea797 


\ Paar ECK\<0><0 
17694 94780 CK\<0><0> 


S P 
\DATAY  saeahteoutinead 
17694730 


S P.AAJ 
\WRITE\ 


\READ\ 
seere  oemiaete 
1 6947 0 
Riche 
Rit: OF yf ILEN<0> 


\ERASE_ON_ DELETE\<0> 
17694735 

P.AAT 
\EXPIRATION_DATE\<0> 
17694735 

P. AAV 
\EXPIRATION_DATE\<0> 
a Sa +t 

\EXTENS LON\<O><O><0> 


Bi aaa 


- ABB 
\GLOBAL _BUF FERS\<0><0> 
17694734 


-ADDRESS P 


ASCII 


\GLOBAL_BUF FERS\<0><0> 


rae Bf 


5 
Four NESIEINGG CRB:HY PASUASHENSR NESSIE, = 
F 


S50 


P.ABE:  Otes 17694734 
00 4C 41 4E 52 55 4F 


p , . ABF 
- ABH: rv» \JOURNAL \<0> 


A 
1 7, 00140 P.ABG: LONG 
49 41 26 4C 41 4E 52 5500900006 rr P.ABJ: ASL ato AI\<0><0> 
S858. BETES P=ABEE “LoMe ss 
49 41 26 4C 41 4E 52 5S 4F GA P.ABL: .ASCII \SURNAL .AL\<O><0> 
P.ABK: 1769473 


56 pp0099ee 00 SSH 8 


00 00 4 4F 49 54 43 45 S54 4F 8 0 
at 


45 54 4F 
00 00 00 4d 


te LONG 
P.ACJ: ASCII \PARENT\ 


“BL 
i Serie ngcat ens 


-ADDRESS P.A 
54 53 59 53 2 GE 4F 49 54 43 is P.ACN: .ASCII \PROTECTION. SYSTEM\<0><0><0> 


1 é 

1 : 

1 : 

1 F 

1 : 

1 : 

00 00 : 3 
1 ADDR : 

00 00 13¢ Hat ; 
So0pob00" i he SOD RESS P.ABL : 

00 00 54 41 2 4C 41 4E 52 4F 4 195 P. ABN: ASC \JOURNAL .AT\<0><0> : 
SSsaRh. Sas PASH : 

00 00 54 41 2E 4C 41 4E 52 55 see oot O18 B ABP “ASCH 17e3ei8 .AT\<0><0> : 
0060000" 00194 === “ADDRESS P.ABP 

00 00 49 42 2€ 4C 41 4E 52 55 4A O38 P.ABR: .ASCII \SURNAL .B1\<0><0> : 
01060004 Ag P.ABQ: “LONG 1 69473 : 

00 00 49 42 2 4C 41 4E 52 55 iar gh Tac ABT: ASCII \ JOURNAL .BI\<0><0> : 
0000000" 0018C ~ == “ADDRESS _P.ABT : 

00 00 55 52 2 4C 41 4E 52 55 BF gh 01¢6 BABY: ASC \JOURNAL .RU\<0><0> : 
00000000" 00106 ~ ADDRESS P.ABV : 

52 SF 52 45 56 45 GE 2E 4C 41 GE 52 55 4F 4A O1D4 P.ABX: ASCII  \JOURNAL.NEVER_RU\ : 
01060010 QO1Es P.ABW: .LONG 17694736 : 

00000000" 00168 “ADDRESS P.ABX ; 

55 52 SF 59 4C 4E GF 2E 4C 41 4E 52 55S OF aA QO1EC P.ABZ: <ASCII \JOURNAL.ONLY_RU\<0> : 
0106 000F O1FC P.ABY: .LONG 17694735 : 

0000000" 00200 “ADDRESS P.ABZ : 

00 47 4F ac 0204 P.ACB: <ASCII \L06\<03 ; 

80000000" pose -“** “AbbREss Peace 

00 59 52 4F 56 43 45 52 49 46 18 4E 00 10 B-ACD ASCII wyapapggronrNcm : 
00900000" 80 § : OORESS : 

00 00 00 43 49 5S SF 52 45 4E Beoos) 0 4 BeACE “ASCH it YIC\<0><0><0> : 
990000" 9 pte: “ADDRESS, : 

00 00 00 43 49 #55 SF 52 45 4€E 18 0009 a Set “Ast \OUNER, YIC\<0><0><0> 3 
390° 900° 48 “ADDRESS P.ACH ; 

4¢ P.ACI : 

[ADDRESS UIC_VALUE 
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18. $ep-1984 00:53: AX-11 Bliss-32 V4.0-742 
ae teat ts rik et ot a ee ts oa et a 
0 1 i P.ACM: .LONG 17694737 
' -ADDRESS P.ACN 
of 32 3 94 P.ACP: ‘ASCII \PROTECTION.SYSTEM\<0><0><0> 
0 ort | P.ACO: .LONG 17694737 
ac “ADDRESS P.ACP 
oF 80 P.ACR: .ASCII \PROTECTION.OWNER\ 
919 1 CO P.ACQ: .LONG 17694736 
9 * 002C4 “ADDRESS P.AC 
4F C8 P.ACT: <ASCII  \PROTECTION.OWNER\ 
10 4 § DB P.ACS: .LONG 17694736 
0060 ' 0 0 “ADDRESS P.ACT 
F 0 EC P.ACV: ASCII  \PROTECTION.GROUP\ 
010 0010 O02FO P.ACU: .LONG 17694736 
2900 * 0024 -ADDRESS P.ACV 
F 0 Fg P.ACKX: ASCII \PROTECTION.GROUP\ 
10 0010 00308 P.ACW: .LONG 17694736 
0960000" 030¢ “ADDRESS P.ACX 
OF 20 0 10 P.ACZ: ASCII \PROTECTION.WORLD\ 
010E0010 00320 P.ACY: .LONG 17694736 
00900000 0324 “ADDRESS P.ACZ 
OF 20 0 8 P.ADB: ASCII \PROTECTION.WORLD\ 
010€0010 003 P.ADA: .LONG 17694736 
00090009" 033¢ “ ADDRE AD 
4D 4 00340 P.ADD: ASCII MRERBVE\<O><0> 
010£ 0006 0348 P.ADC: .LONG 
0099000 * 0034¢ -ADDRESS P.ADD 
55 52 54 00 30 P.ADF: . ASCII \TRUNCATE\ 
SanRs, S84 FADE: “hon tpe3572 
4c 4€ 082 0360 P.ADH: .ASCII * pit EK <o><0> 
010€0 0368 P.ADG: .LONG 
00090000" 0 $¢ [ADDRESS P.ADH 
52 4 io 0 20 P.ADJ: .ASCII \VERSION_LIMIT\<0><0><0> 
10E000D 00 80 P.ADI: .LONG 17694733 
0090000" 0 “ADDRESS P.ADJ 
4 38 3 P.ADL: .ASCII \VERSION_LIMIT\<0><0><0> 
010E000D 00398 P.ADK: .LONG 17694733 
00000000" 0039¢ “ADDRESS P.ADL 


.PSECT S$GLOBALS,NOEXE ,2 
00454 SETSGL_JOURNALING: : 
-BLKB 4 


-EXTRN SYSSGETJPIW 
-PSECT SCODES,NOWRT,2 


sever 
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pa 
Raa 1b-seo-1984 09:53:54 AX-11 Bliss-32 V4.0-762 Page | 
14-Sep-19 :09:07 tet iute sre SETFILE.832;1 3 
| OFFC 00000 GET_ouALS: 
| -WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11 3 0526 
& G 8F 00 MOVL aclis NEGATED. Ril : 
A 6 MOVAB CLISGET_VALUE, R1 3 
| 9 G 19 MOVAS  CLISPRESENT, R9 : 
: EF 1 MOVAB P.AAC, R ; 
* 1 MOVAR —SETFILESFLAGS, R7 : 
€ 0¢ SUBL2 #16 : : 
08 AE 020€0000 BF D MOVL #34471936, DESC : 0538 
C AE D4 CLRL = DESC +4 ; 
DD PUSHL R + 0543 
$9 1 - 90 CALLS #1, CLISPRESENT ; 
0 D MOVL RO. STAT : 
0 00 BLBC = STATUS, 1$ + 0544 
é 8 00 B1s62 ae. SETFILESFLAGS > 0545 
58 D1 00043 1$: CMPL TATUS, R11 + 0546 
88 13 0046 BNE : 
67 04 8 004 BISB2 #4, SETFILESFLAGS + 0547 
10 AS 9F 00048 28: PUSHAB P.AA : 0552. 
69 gi FB 004E CALLS #1, CLISPRESENT : 
03 0 0051 BLBC ; : 
67 08 8 00054 BISB2 #8, SETFILESFLAGS : 0553. 
26 AB 9F 00057 38: PUSHAB P.AAG : 0558 
69 gi FB 0005a CALLS #1, CLISPRESENT : 
4 0 005D BLBC : 
4 10 88 000 BISB2 #16, SETFILESFLAGS > 0561 
08 AE F 0006 PUSHAB DESC : 0562 
8 AS 9F 000 PUSHAB P.AAI ; 
6A 92 FB 0006 CALLS #2, CLISGET_VALUE : 
06 E 006C BLES =s-«aRO, 4S : | 
046 A? 4 9006 BISB2 #4, SETFILESDFLAGS : 0563 
1 11 0007 BRB 9$ : 
4 b4 9007 4$: CLAL. I > 0564. 
40 AB OC BE 08 AE 29 00077 SS: CMPC3 DESC, @DESC+4, P.AAK > 0566 
06 iF 9007¢ BNEQ : 
04 A? 04 88 90080 81862 #4, SETFILESDFLAGS : 0568. 
468 AB OC BE 08 AE ¢9 $0086 68: CMPC3 DESC. @DESC+4, P.AAL > 0569 
0 0080 BEQL $ 3 
0481 31 O008F BRW 56$ ; 
04 a7 02 88 00092 7s: BISB2 #2, SETFILESDFLAGS > 0571 
08 AE OF 096 8$: PUSHAB DESC : 0577 
58 AS OF 0 PUSHAB P.AAM : 
6A F 9C CALLS 3, CL ISGET_VALUE ; 
04 E O09F BLBC —E.—«aRO, ; 
D1 54 1 F A2 AOBLEQ #1. I, 5$ ; 
08 AE 9F O0AG 9$: PUSHAB DESC > 0585 
68 AS 9F OOOA PUSHAB P.AAO : 
A 9 FB OAC CALLS #2, ‘ JSGET_VALUE ; 
é AF BLBC Osa : 
2 10 § O82 B1S8 #16, SETFILESFLAGS+2 : 0588 
380A? ¢ 8 8 AE MOVCS DESC, @DESC+4, RENAME_BUF : 0589 
gise fF aa: 06 C nove DESC, FICE NAME +4 : 0398 
08 AE 020E0000 8F D0 000C MOVL #34471936, DESC : 0594 
OC AE D4 00001 CLRL —dDESC +4 ; 
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oF 0D4 108: 
FB 00007 
bs DD 
F OOOEO 118: 
f DO0ES 
D0 O00E7 
DOOEA 
Bs DOOED 
01 OOS 128: 
as +84 
FB 05 13$: 
$F 90106 
Fe 99103 
Fi 
9F OOTIA 
FB 0110 
9 00124 
FB O18 
£9 0012E 
8 00181 
D0 001 5 
& Se 
FB 00145 
SF 0146 
pp Gores 
H Bie 
He 
Bie 
01 001 
14 00167 
RE 
BF ooIrs 
9F 00176 
FB O017A 
17D 
Ye 
qi 
f + Be 
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AX-11 Oh ies -3 
CLIUTL. SRed SE 


2 
T 
P.AAQ 

#i, CLISPRESENT 

é e SETFILESFLAGS 
si, CLISPRESENT 

RO. STA 


STATU $ 
#64, Oss leSesruacs 


TATUS, R11 

#1 8. SETFILESFLAGS 

#i, CLISPRESENT 

RO, 14$ 

DESC 

P. AAW 

#2, CLISGET_VALUE 

#1, SETFILESFLAGS*1 

bes VALUE 
Wwe TIME 


POAA 
a. m“ ISPRESENT 


° SC, =(SP) 
- LIBSCVT_DTB 


VinDaEoo 
oounm*,®n 


V4,0-742 
FILE.832;1 
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5 
TF 18-5e “19 :53: AX-11 Bliss-32 V4.0-742 Pa 1 s 
nae ted 1 ~30071 38% 90:33:03 Yet iute sre SETFILE.832;1 - 3} V 
OOOOFFFF BF 24 A? 0100198 178: CMP F_VALUE, #65535 : 0675 : 
03 1A BcTh itt . : ; 
24 a p an pay 5 tog 3; 0676 : 
00771164 8F DD OO1AA 18%:  PUSHL #7803370 + 0679 3 
C AE F 0018 PUSHAB DESC : ; 
DD 0018 PUSHL # : ; 
007710FA 8F DD 0018 PUSHL #7803130 : | ; 
000000006 00 ose Fe 18 CALLS #4, LIBSSIGNAL F sonal : 
03 0454 C7 ; 1€5 19$:  BLBS $6 1SGL_JOURNALING, 21$ + 0689. ; 
01¢9 1CA g0$: BRW $ : ; 
012¢ F OO1CD 21$:  PUSHAB P.ABG + 0691 ; 
69 1 Fe 101 CALLS #1, CLISPRESENT : ; 
FS 0 0104 BLBC RO, $ F ; 
01 A 08 88 00107 BISB2 #8. SETFILESFLAGS+1 : 0694. ; 
08 AE 9F 001DB PUSHAB DESC : 0699 : 
014 F 001D PUSHAB P.ABI ; | : 
$9 FB O1E CALLS #2, CLISPRESENT : ; 
6 DO OO1E MOVL RO, STATUS : ; 
000000006 &F 6 D1 OO1E8 CMPL STATUS, #CLIS_ABSENT : 0760) ; 
4D 13 OE BEQL 25$ F : 
08 aA? 04 88 O001F1 BIS62 #4, SETFILESUFLAGS : 9703, : 
&9 001F5 BLBC STATUS, 22$ 3 0704 | : 
08 A7 02 88 001F8 BISB2 a SETFILESJFLAGS > 0706 | : 
g 11 OO1FC BRB & ; : 
58 6 D1 OO1FE 228:  CMPL TATUS, R11 : 0707. : 
04 12 00201 NEQ : | 3 
08 A? 02 BA 0 03 BICB2 #2, SETFILESJFLAGS : 0709 : 
08 AE 9F 00207 23%:  PUSHAB DESC : 0710) 3 
ers & 4 be CALS. 63 het ISGET_VALUE : | : 
2A 96 5 8 11 BLBC +3 ste - : | ; 
08 AE 81 00214 MPW =s-dDESC, #16 : 0713 ; 
12 1B 00218 BLEQU 248 : | : 
08 AE 9F OOZTA PUSHAB DESC : 0715 | : 
1 DD 00210 PUSHL #1 : : 
00771112 8F DD 00 1F PUSHL #7803154 : | ; 
000000006 00 3 FB 00225 CALL 43 LIBSSIGNAL : ; 
A? 0 88 0022C 248:  BISB2 #32, SETFILESJFLAGS+1 t 0716 | : 
0170 C7 08 AE 0 MOVW DESC, AI_JNL_DESC : O717— : 
0140 (7 OC =««BE 08 AE 0 MOVC3§ DESC, @DESC+%, Al_JNL_NAME 2 Orie 3 
08 AE 9F 0023 25$:  PUSHAB DESC : 0725. : 
0168 oF ° 41 PUSHAB P.ABM 3 3 
69 FB 43 CALLS #2, CLISPRESENT : ; 
36 DO 0024 MOVL ATUS ; : 
000000006 &F 36 D1 024 CPL TATUS, #CLIS_ABSENT : 0726 : 
08 a7 5 8 BISB2 #16 SETEILESUFLAGS : 0729. ; 
0 8 BLBC_ STATUS, 26 : 0730. ; 
08 A B BISB2 #8, SETFILESJFLAGS : 0732. ; 
11 F BRB : | : 
58 é p} ? 268 CPL TATUS, R11 > 0733 : 
08 a7 8 gh BICB2 #8, SETFILESJFLAGS : 0735 ; 
98 ar F 0026A 27$:  PUSHAB DESC : 07 : 
017C CB OF 00260 PUSHAB P.ABO : : 


| igs | [. 
Se a ea ee es Stee eek 
1 


§ 
~ Page 3 v 
4 +53: “11 Bliss-32_v6.0-742 (7) 
102808-1 38 99:38:07 Letture sae set ice eBso41 
| SETERLE : r 8 7 cA Ls 2. $4, JSGET_VALUE ores : 
1 90877 srau Sage’ *"° ; 0761 
os 18 18 00978 PUSHAB DESC 
OF bp pusHt mle : “4 
oo771112 BF bp eyMhs | 82, “ibssiome : Ore : 
G ; 8 f 288: BIS62  #6L : 0744 ; 
spa a 08 AE MOVES DESC. @DEScse. AT_JNL_NAME : 0751 3 
ee a AE §F QOS? 298: PUSKAS at ; ; 
ov F OOSA CALLS, #3. CLISPRESENT : : 
01 OF BOCA CALLS #3, CLISPR : 0752 
53 D8 PY oer situs, #CLIS_ABSENT ; orss | : 
000000006 8F tf 4s BEQL ee SETFILESJFLAGS : 0756 : 
0 8F 88 88 Fad StAtUs, 508 ; 0758 | : 
08 A? ~~ 2 G2 pce BIS62 #52, SETFILESJFLAGS tooled 
wb 69 iy 308: EMPL STATUS, vie S o761| ; 
58 t 9D bose BICB2 #52, SETFILESJFLAGS : 0762 : 
A 002CB BICB2, #32, ; 
08 A7 08 Ae OF Ooscr 318 ruse pes ; : 
HERR BEE Te acer mu ows) 
ga £5 00909 6LBC pes #16 ee : 
wt Te doses Brea Bee, hed Sees! 
et Se wa poera 
; 0768, ; 
00771112 f bb : A CALL tO sh ay Cee gree | 
09 A e 02F9 MOVES DESC, QDESCS%. Bi _JNL_NAME ; 0777 | 
co "OC be OB AE : OF 335:  PUSHAB wee ; | : 
= 4 9F 0080A CALLS, #2. CLISPRESENT : | : 
0188 : CALLS #3, STATUS 3; 0778. : 
; 06 6 i CAPL STATUS. #CLIS_ABSENT pales ; 
000000006 F 18 13 cose Biche a> SETFILESUFLAGS#1 : O7e> 
1 6 } Blac. STATUS. AAS > 0784 | é 
at: 6 81382 + Fema ; 0785 : 
ow it | i B 368: RPL STATUS, R11 vn 
38 § 9 BICB2 #138, SETFILESUFLAGS : 0793, 
eer ed oes Bae! 
0100 a CALLS #3, CLISPRESE : 079% ; 
i D ig cRPL 1 ponopncanees : 0797. : 
6 7$ € } 
een 18 0 Bis62 #16, SETFILESUFLAGS#1 
09 A? 10 8 
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9 BLBC_ STATUS, 36$ : 079 : 

09 i bs pise2 SETFILESJFLAGS*1 : 0800 : 
SB 6 p} : 36S: cmPL TATUS, R11 ; 0801 : 

09 «A? 8 BA D BICB2 #8, SETFILESJFLAGS+1 ; 9803 : 
08 AE OF 1 37$: PUSHAB DESC : 0809 : 

O1E F PUSHAB P.ABY : | : 

9 F CALLS 3, CLISPRESENT : ; 

a D MOVL RO, STATUS : : 
000000006 &F 26 cMPL tAtus. #CLIS_ABSENT > 0810. : 
09 A? BISB2 #4 SETF ILESUFLAGS#1 : 0813) ; 
f 78 BLBC STATUS, 38$ : 0814 : 

09 A £6 0057¢ BIS62#¢, SETFILESJFLAGS+1 ; 0816 | : 
58 4 p} 0 ¢ 38$: cMPL TATUS, R11 > 0817 3 

09 «A? 03 gh 0389 BICB2 #2, SETFILESJFLAGS+1 : 0819. : 
O1F4 f 0038 39$:  PUSHAB P.ACA ; 0828 | ; 

69 1 re 0391 CALLS #1, CLISPRESENT : ; 

a? 01 0 FO 003% INSY. RO, #4, #1, SETFILESFLAGS*1 : | : 
0208 (CB 9F O039A PUSHAB P.ACC + 0833) ; 

69 9} FB 00 9 CALLS #1, CLISPRESENT : 3 

04 0 £9 003A BLAC. R : | : 

01 «A? 20 88 003A4 BISB2 #32, SETFILESFLAGS+1 > 0834. 3 
021¢ CB 9F OO3AB 40$: # PUSHAB P-.ACE + 0839) ; 

9 1 Fe O3AC CALLS #1, CLISPRESENT : : 

A 0 O3AF BLBC, RO’ ; : 

01 A? 40 F 88 00 Be BISB2 #64, SETFILESFLAGS*+1 ; 0842 : 
9 AE F 0038 PUSHAB DESC > 084 ; 

0230 C8 9F 003BA SHAB P.ACG ; ; 

6A : re 03BE CALLS #2, CLISGET_VALUE ; 3 

1F 5 03C1 LBS 41$ : : 

—E 7C 99 C4 CLRO 0 _ = ( §P) : 0852 ; 

08 AE 9F 00 C6 PUSHAB 10SB : : 

02 ¢ F 003¢ PUSHAB P.ACI ; | F 

—E 7C 003CD CLRQ = =< SP) ; ; 

43 D4 O03CF CLRL = (SP) : : 

000000006 90 F 0 1 CALLS #7, SYSSGETJPIW : | ; 
6 0 »D D8 MOVL RO ; : 

9 56 0308 BLBC STATUS, 44$ : 0853 | ; 

6 £ 0030E MOVZWL 10SB, STATUS > 0854 | ; 

E BRB : 0855 ; 

ES 41$ CPCS tet @DESC+4, P.ACJ > 0864 ; 

° | Py 

i B1SB2 #128, SETFILESFLAGS*1 > 0866 3 

FS 42$:  PUSHAB ‘UIC. VALUE 0867” : 

‘7 PUSHAB 3 3 

FA CALLS #2, PARSE_UIC : : 

01 MOVL STATUS 3 3 

43$:  BLBS STATUS, 45$ ; : 

4 7 448: PUSHL TATUS : 0870. ; 

45$:  PUSHAB P.ACK > 0878 F 

CALLS #1, CLISPRESENT ; : 


me ie? 


wSep-i9be (2:09:07 — ECKTUtLosneSsetriudcasost tee 


TF $ 
yee 008 : 
03 oaks i pas i 468 ; | : 

02 a7 6 19 468: 1se2 # TFILESFLAGS+2 : | 3 

6E 020€ D mMOVL # 439 , PROT_DESC : 8889 : 

0278 ; pista PAR’ : 0891. : 

9 CALLS ai, i {SPRESENT F | : 

2 W Bis62 #15, SETPRO_MASK 7 0894 | ; 

029% PUSHAB B-ACO Aeteg 

A CALLS #2, CLISGET_VALUE F : 

7 i gL8t i: 1 ae S asc | : 

v Ef 4 CALLS #1, PARSE_CLASS : : 

ti A? 4A MOVW RO, SETPRO_PROT : ; 

O2aC 4E 47$:  PUSHAB P.AC ; 0898 ; 

9 3 CALLS i. ¢ JSPRESENT F | ; 

12 A? FO 5. BISB2 52k" SETPRO_MASK 0901 | : 

02¢4 2p PUSHAB acs rs : 

6A 63 CALLS #, CLISGET_VALUE ; ; 

os $9 pia oso : 0903, : 

o0000000v EF mi #1, PARSE_CLASS : | ; 
oy o2pc 4} oes:  Pusuie RO, SETPRO_PROT ; 0905 

9 > CALLS si, CLISPRESENT : | : 

13° A? 53 BISB2 #15, SETPRO_MASK+1 : 0908 | : 

02F4 §9 PUSHAB o acu : | : 

6A 8D CALLS #2, CLISGET_VALUE : | : 

a PUSHL SP’ ; 0910, 

ua 00000000v ef 49 CALLS #1, PARSE CLASS | 3 
10 A rt BISW2 RO, SETPRO_PROT : | ; 

030¢ Aa 49$:  PUSHAB P.ACY : 0912 | ; 

69 as CALLS vi, JSPRESENT ; | ; 

13° «OA FO BISB2 F2k0° SETPRO_MASK+1 : 0915 ; 

0324 B PUSHAB B.ADA Ie 

6A CALLS a. CLISGET VALUE : | ; 

" BF PUSHL SP’ : 9917. ; 

ny oe 2 Ash, #13, RO TRON ret 
10 A C BISW2 RO, SETPRO PROT : | F 

50 12 06 508: ROVZUL PRO_MASR, RO ; 0925 ; 

10 A? 10 06 RCORU —SETPRO PROT. SETPRO_PROT ; 09 $ F 

16 A? DB 51%: MOVW RO, GLOBAL_MASK : 93 3 

14 A? 10 OF MOVW § SETPRO_PROT, GLOBAL_PROT ; 0934 | ; 


5 
“11 Bliss-32 V4.0-742 Page 35 
16-Sep~1 109: thi’ fr ltécesest ( 
SETFALE 1 ~3007 138% 99:38:07 CLIUTL.SRCIJSE 7 ome 
om SF Bis 25 CALLS #i, CLISPRESENT fae 
i e Ts62_ #39, SETFILESFLAGS+2 : Ooas 
02 A7 0344 4 iH 538 ly wi SPRESENT : 
oe 4 BiS62 #2, SETFILESFLAGS#2 : 0951 
- a 0354 8 wAS: Tits: oie CLISPRESENT | 
be P&S hen! Bis62_ #4, SETFILESFLAGS#2 : 39 
= i 036¢ i FB 0031S CALLS Ai. CLISPRESENT 4 
1 BLBC_ RO. “ 
#8, SETFILESFLAGS#2 O91 
9 Mt 7FFF 08 e 9031 novi a3s7é ¢ VASH_VALUE ; 2| 
f : 
0384 oF eye a5. CLISGET VALUE : | 
A 8 o0sse a : 0965 
"BOA BE BRE Bisiaw Mata. y : $986 
2 - : 
? 10 AE $e 908 ; CALLS WS. {1psevi ove : | 
000000006 ge ER bose LBS RO, 578 : 0970. 
" os Ae OOF <3 568 PUSHAB c : | 
BD 00868 PUSHL #7803130 Sale 
007710FA 8F DD 0054 #3, LIBSSIGNAL : 0971 
000000006 00 fe Soze eno ; 0974 
% OAT OD ; 578: TSTL  VASN_VALUE ae 
06 13 A 4 #32767, VRSN_VALUE : 0978 
oh Eth Se 06 588: MOVE YRSN_VALUE, RO aie 
H 
MPL RO, #32767 
ene Saf at f seg 5 03370 ; oe 
OO77I1EA Ot PB 00877 GOs: «CALLS. #1. LIBSSIGNAL Goi, 
000000006 00 ) BRE «628 ; 0985 | 
50 1 00 é oe ah ; 0986 | 
5 RET 
62$: CLRL RO 
0 Be 00886 RET 


; Routine Size: 1415 bytes, Routine Base: SCODES + O0EO 


— EEE 


5 
iB-Sen-1984 00:58:51 YAN=I1 BLin8-82_v4_0-742 Page 36 
ROUT INE parse null string (fab) : NOVALUE = 


i This routine parses the null string on the specified FAB to 
: force RMS to clear all internal saved context. 


<u ] 


fab : REF SBBLOCK; 


LOCAL 
nam : REF S$BBLOCK; 


nam = .fablfab$i_nan); 
§ nam(nam$v_svctx) = 0; 
nam j= i; 
nam 


nam$v_synchk 
nam$b_esij = 


= 
= 
= 
= 
nam$\_orsaj = 
= 
= 
= 
); 


a at sd ow 4 2 I 
VMFWwN—O 
MmDm--a--7 
E~sossssees 

- > 

eceeg 

Sees 

o's'3's's 

ww oa) 


a ee 


-EXTRN SYSSPARSE 
0000 00000 PARSE NULL STRING: 
. WORD 


Save nothing 3; 0987 
51 at 09 MOVL FAB, R1 : 1001 
A MOVL 40(81) NAM : 

33 A ar A A BI C83 #128, 51 (NAM) : 100 
A 8 OF 8158 “8 8 (NAM) + 100 

A Ad B 13 CLRW =: 10 (NAM) : 100 

2 ad B4 16 CLR e (NAM) + 1007 

ise b4 1 CLRL (NAM) + 1009 

fa 1C CLRO ! (NAM) 31 

* 8) BS bo02> i? fo ots. 
000000006 00 a1 FB 9 z CALLS #1, SYSSPARSE : a 


3; Routine Size: 44 bytes, Routine Base: SCODES + 0667 


in 
1o-8ee- 1882 99i88:8) «| eet sab isete tte ase. re 


<u“ 


ax 
SF 


3 1 $ 101 ROUTINE set_attributes (fab) = $ 
i] Be yi : 
: 1 $ 101 i This is the routine that actually accesses the file, a sets the : 
3 1 1 : : speci? attributes. If an error occurs while attempting to set 3 
3 1 1 i the attributes, a message telling the user is issued, and any other 3 
, : : ; files are processed. : 
:1 1 ine | ; 
5 ; : 5 BEGIN : 
3 1035 1 $ MAP | ; 
: ! : 3 fab : REF SBBLOCK; ! Define the fab : 
| 1030 | ; 
3 1 lu 3 
3 3 ? 19 § LOCAL | : 
3: 1 1 atr : BLOCKVECTOR(E13,8,8YTE), ! Attribute control block 3 
3 1 § 10 ptr, ' Pointer to attribute block | $ 
3 + 1035 2 eee ! Status return 3 
3 1046 1 ! Channel number 3 
3 1045 1 seaLock 4s $c_s_bin Genera f descriptor : 
3: 1 1 #90: beg si ¢ tength), FIB for the 3 
3 1046 197 header ! The tiie’ header 3 
; 1048 1040 item_list : cat 3| ECL ¢ (ITEMS=1), | Item List for GETDVI volume Label ; 
3 104 1041 ai_jnl_ace : LOCR c_mx aihent). ! ACE to contain Al journal name 3 
3; 1050 1 § at_jn ace : seer nee ze $c" _mxjninaml), ' ACE to contain AT journal name é 
3; 1051 1 bi_jnl_ace i$ f$c"mxjninanall, ! ACE to contain BI journal name | $ 
; 424 1044 Label “Buffer 7 vecronel -BYTE), ' Buffer for volume Label 3 
3 132 : ‘ iosb = VECTORES WOR ! 1/0 status block : 
: 1055 1 IND : 
; 198 : : recattr = header(fh2$w_recattr]) : SBBLOCKCatr$s_recattr), : 
: 1088 1980 nam = .fab(fab$l_nam] : SBBLOCK; ! Define the name block | i 
; 1060 1052 2 OWN | : 
3 1061 1 3g rmsjnlid_ace : SBBLOCKLid_ace$s_size), ! ACE to contain RMS jnl ident 3 
3 1006 1054 old_did_num : WORD, ! Old directory id 3 
3; 106 1055 old_did_seq : WORD, | : 
; ie ' 3 old-did-rvn : WORD; | : 
:1 105 ' 3 
3 1 1 35 ! If no more processing is to be performed, then simply return. This handles | : 
A Hse 4 1 ' the case of wildcards which do not return for each file to the routine 3 
3 Hs 4 : that called Lib$file_scan. : 
: 1071 1 7 if pest iieettogeteuet quit] ; 
3 1 1 THEN RETURN : 
We HB : 
: 1 2 1 See if the common specified common qualifiers match this one. 3 
; 1079 1 5 ant -desc(dsc$a_pointer) = .nam(nam$l #oig?! ' Get the resultant name | ; 
3 1978 ' 10 conf-desc(dsc$w_length] = .nam(nam$b_fsl ' of this file | : 
; 1080 1072 status = LibSqual_file_match(context, ! Call the common qualifier routine | : 


A —— —_ a 


IRE IEaecit O0:0:8) | EUS Nt, 


7 0, 
f onf desc, 
, 
7 If NOT .status : ' If th he. status is faise, check 
7 } A. ith ats A ge false 
! er 

«Status NEQ LibS_filfaimat ' “tile ogi at t yn qualifiers” 

§ WEN seca a openin, ! Else signal it 
cont desc, 

5 -Status); 


A true; and DON'T process this file 


] 
Assign a channel to the file's device 


dese assts- Length] = ee al ! Set ug she descriptor 


SSSISESSSSEE 


i Unless some option was specified that requires the file header, don't 
bother to get it. 


ir CREB aa nobact up] OR 


wn 


w 


lags 
-setfile$flags 
-setfile$flags 


qual nobeg 
qual £97 0 
qual“eof 


tt a at a at tt 2 2 a ss ts se 


1 

1 " 

110 

1 4 desc(dsc$a_pointer] = .nam(nam devi; ! to point to the device name 
110 BE F NOT (st3tus = SASSIGN( 

1 Be P DEVNAM = desc 

1105 CHAN = channe()) 

1 5] THEN 

110 

1108 1 file error ( et openin, 

1109 101 status, .fab); ' Tell user why the assign failed 
1110 1 ; RETURN true; ! And continue with other files 
1111 10 END; 

1 \ 104 

111 105 : 

: \ : : Access the file, reading the file's header 

1 1 1 desc tdsc hu. length) = # {bse length; ! Re-use descriptor to point to FIB 
} ; } desc(dsc$a_pointer) = 

1 19 ; CHSFILL(O, fib$c_length, fib); ! Zero out the FIB 

1121 1 fibCfib$l_acctl] = fibSm_write OR ! Set up the FIB 

1 § 1 fib$m_noread OR 

: ? ; fibSm_nowr ite; 

1125 1 fibCfibSw_fid_num) = .nam(nam$w_fid_num ! Put in the file id 
1 $ 1 fiblfib$w_fid-seq] = .nam[nam$w_fid_ “seal: 

: i : fiblfib$w-fid-=rvn] = .nam(nam$w_fid-rvn 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 


Pononononononononon 2 OD 
OWONAU EWN $C OONOULWN OO 


<v 


6 
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ax 
gr 


-setfile$flags(qual_erase] gr 
-setfile$flagsiqual_noerase) OR 
§ -setfileSflagsiqual_expi] OR 
“sett i tezt tous qual_exte] OR 
-setfileSflagsiqual_gbuf] OR 
5 -setfile$flagsloual_journal) OR 
-setfile$flagsiqual_nodi] OR 
-setfileSflagsiqual_owner] OR 
-setfileSflags qua} ..trung OR 
-setfileS$flags(qual_vrsnJ) 
we GI 


BEGIN 

IF ett t lett loget qual quit sod? 
OR ' -setfileSflags(qQual_Confirm] 

rue 


BEGIN 

status = LibSconfirm_act(ZASCID "Modify file !AS? (NJ) : ', 
ZREF (conf _desc)); 

IF NOT .status 

THEN 


BEGIN 

IF .status EQL Libs meters 

THEN (settilestlagstaua quit] = 1; RETURN true) 

ELSE IF .status EQL LibS_quiconact 

THEN Peer cu. egeCaual .quit_sodd = 1; status = 1) 

ELSE IF .status NEQ Lib$_negans 

ML SIGNAL (set$_writeerr, 1, conf_desc, .status); 
-Status 
END 

END 

THEN 

BEGIN 

atr(O,atr$w_type] = 

atr(O,atr$w_size) = 

atr(0O,atr$l_addr) = ; 

atrli,atr$w_type] = atr$c_fndacetyp: ! Look for an rmsjnlid ACE 

atrli,atr$w_size) = id_ace$s_size; 

atr Jogtest edge = rmsjnlid_ace; 

atr(2,0,0,32,0) = 0; 

rmsjnlid_acelace$b_size] = id_ace$s_size; 

rmsjnlid_ace acesb_ type = acé$c_jnTid 

rmsjnlid_acelace$w_flags) = ace$m 


status = $Q0]0Wi CHAN = .channel 
Func = [0s ACCESS OR I1OSM_ACCESS, 
1088 = iosb, 


Pl = desc, 
PS = atr); 
IF .status THEN status = .iosb{0); 
If NOT status 
ute file_error(set$_readerr,.status,.fab) 


BEGIN 


WN "SO ODONAUES WN" O OONAUSWR' O00 


FPS LLL LA LILI BELLE EEE 


“ 


atr$c_header; ! Get the file header 
atr$s_header; 
header; 


ser 


BWANA AAAI AAA AAA AAAI AAA IIIS BB IO OUI BBB WII IOWA 


hidden OR ace$m_protected; 


vuvuvvD 
Oe ee a a a a lt a a el ll al ll el ll ll cl el el ll ll ll ll el el ll ll ll ll el ll ll el 


ee ec ec a ee ee ed a nd od 


COON NNN NNO O 


a a a a a ke a ee a a a dd 
—OOONOUSWN—"O0O® 


@ SPSRS i NO an DPA ES DS BB EE 


Be Ge Se Se Se Se Se Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge Fe Se Se Se Fe Ge Ge Se Ge Se Ge Ge Ge Se FF Ss Se Se FH Se Se Ss Se Se Se Ge Se Se Se Se Ge Se Ge te Seas 


Sey tee} 


6 
1$-sep-1964 00:53:51 yARat1 Bling=32_v4,0-742, Page 40 


ak 
| 


Check to see whether this is an ODS! or an + Bt, file. If ODS1, 
copy the record attributes into the ODS2 location 


If -header(fh2$b_struclev] E 
HEN CHSMOVE ( fatSc length, headerCthi$w. recattr), header(fh2$w_recattr]); 


meme mem 


—> bs 


{SSRIEREUN LS SSVOORAN LS SVS AR AW—OSBIRAR AW O OOO GES 


See if an rmsjnlid ACE already exists. Don't create a new one later, since 
one is good enough. 


If _.rmsjnlid_acelace$b_type] NEQ 0 
setfileSmflags(misc_already_rmsjnlid] = 1; 


ot bb _s _) db 4 


BSRLESRANLSLSLESLANSLESES 


Initialize the pointer to the attribute control block. The block 
will be built as we go. @ and the pointer shows where the next attribute 
should go in the block. 


3: 1 1 4 i 
3 1 1 4 ; 
3 1 1 4 3 
3 3 1 4 H 
3 1 1 4 3 
3 3 1 4 3 
s 3 1 & : 
3 1 1 4 3 
3 3 1 « 3 
3 1 1 4 : 
3; 1 1 4 3 
3 1 1 4 3 
3 1 1 4 3 
3 1 1 4 3 
3 3 1 4 ; 
3 1 1 4 é 
3 1 1 4 3 
s 5 1 4 3 
iy 1506 
3 1 1 4 ptr = 0; : 
iy 1509 | 
3 : ; 19 : ; Change the file characteristics : 
3 : : \§ ? status = 0; ! Show that nothing has changed : 
3 1 1214 4 IF .setfile$flags(qual_backup) ! /BACKUP 3 
3 1 12158 4 THEN : 
3 1 1 1 BEGIN $ 
: : : meotore Sree. nobackup) = 0; ‘ 
: 1 1219 4 END “wwabeiey : 
: 1 1220 4 IF ssetitlestlagsCqual. nobackup] ! /NOBACKUP : 
s 3 1221 4 THEN 3 
3 1 1 $ BEGIN 3 
31 1 header(fh2$v_nobackup) = 1; : 
3 1 1226 status = 1; : 
: ee : 
3 1 1 $ 4 If .setfile$flags(qual_erase) ! /ERASE : 
3: 1 1228 4 THEN 3 
3: 1 1229 BEGIN : 
3 1 1230 IF zheode r€fth2$ aberusigua EQL 1 ' If not ODS2 3 
: : ; 1 THE § TGNAL ( set$_notods ' tell the user i 
: i 4 : SDESCRIPTOR(* /ERASE")) : 
3 1 re 1235 6 GIN : 
: 1266 1 6 header(fh2$v_erase] = 1; 3 
: See 1538 § ged 
: 126 1 3 & END ; 
: 12468 1240 4 IF .settile$flags(qual_noerase) ' /NOERASE : 
1956 1962 § Meccan 
3 1251 1 rh 3 IF .header(fh2$b_struclev] EQ. 1 ! If not ODS2 ; 


D 6 
1ezSep-19be 49:09:07 — LetiutL sees 


If .status 
THEN 


w 


-ptr,atr$w_size 


— 

= atres char 
-ptr,atr$l_addrj = header(fh $l_filechar); 
ptr = .ptr + 1; 


status = 0; ! Reset the change indicator 


N 
cer teat ee) atr$c_uchar; 


BIZPBVISSELS SoS 


98 
Modify the record attributes 


IF .setfile$flags(qual_exte] ! /EXTENSION 
THEN 


BEGIN 
recattr(fat$w_defext] = .exte_value; 
gtotus = 1; 


; } ; ! “ THEN SIGNAL (set$_notods2, ! tell the user 
7 é 1¢4 SHESCRIPTOR(' /NOERASE*)) 
51 124 N 
3 1 : 1 rk $ header(fh2$v_erase) = 0; 
3 3 : 1250 g status = 1; 
3 1 1251 END; 
 }Ser 1588 6: 
3 126 1254 4 IF_.setfile$flags(qual_data) ! /DATA_CHECK 
3 3 8 1 ¢? 4 THEN cS: a 
3 1264 1 $ BEGIN 
: 1265 1 3 IF .setfile$dflags(data_read] THEN header(fh2$v_readcheck] = 1; 
3; 1 66 1258 IF .setfile$dflagsldata_noread] THEN headerl fhoSv readcheck] = 0; 
3; 126 1259 IF .setfileSdflags(data_write] THEN header(fh2$v_writcheckJ= 1; 
3; 1268 1260 IF .setfile$dflags(data_nowrite] THEN header[ fh2Sv.writcheck] =0; 
3: 1269 1261 status = 1; 
ie ite . 
3: 127 1264 4 IF .setfile$flagsCqual_nodi] ! /NODIRECTORY 
; 127 1265 4 THEN 
3 1276 1 28 BEGIN 
3; 1275 126 IF .header(fh2$b_struclev] EQL 1 ! If not ODS2 
; ; z ; o8 THEN SIGNAL (set8_notods2, ! tell the user 
s Y 
1278 1270 SDESCRIPTOR(" /NODIRECTORY')) 
3 } be } a 2 ELSE 
3 1 1 ~ 6 header(fh2$v_directory] = 0; 
| 1274 3 status = 1; 
3 1 1275 ; 
3 3 1276 4 END; 
a 1558 G: 
; \¢ : ie 2 : If something in the file characteristics was changed, show it. 
3; 1 1 4 
3 3 1 4 
3 1 1 5 
3 1 1 
.? 1 
3 1 1 
3 9 1 
; 7 1 
3 1 1 fy 
3 3 1 4 
3 3 1 4 
3 1 1 4 
3 7 1 4 
3 1 1 4 
3 1 1 4 
3 7 1 & 
3 1 1 
3 1 1 
3: 1 1 
3 1 1 4 


SSSLSSEALNLESS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ODONOUFS wT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


err er er 


NO UE WN 0 ODNOUNE WN OOO NOU EWN 


Be Oe Be Se Oe Se Se Ge Se Se Ge Ge Se Ge Ge Ge Se Se Ge Se Se Ge Fe Se Se Se Se Se Se Se Se Ge SH Se Ge Ge Ge Se Se Oe Se Se Se Ge Se Ge Ge Se Se Oe Se Se Ge Ge Se Oe 


a a a a ee nd ed od od od wd wd do 


BPP BBB BB ENN BBE BENIN BBE BFP NA AAA NIT BB PP PEE 


MEW OOO VOU Fw 0 0@ 


If /END_OF FILE was specified, set the eof_block 
! highest block allocated, and the first freé byte 


If sett ilestlagsCquat_eot) 


BEGIN 
IF .nam(nam$w_fid_num) EOL ! 


-naminam$b_fid_nmx] EQL d 
THEN SIGNAL (sé@t$_Writeerr, 


conf desc 
ss$ “Beconflict) 
ELSE 
BEGIN 


a 9268: 


3} AX-11 Bliss-32 V mits 
CLIUTL.SRC sefrie 832;1 


qqvet to the 
n that block 
to 512, indicating that the entire allocated space is used. 


recattr(fat$l_efblk) = “fegettre test _pieth3; 


recattr(fatSw_ffbyte] = 
status = 1; 


If /GLOBAL_BUFFERS was specified, set the global buffer 


the value Specified. 
IF .setfile$flagsCqual_gbuf] 
THEN wate oc 


BEGIN 
recattr[(fat$w_gbc) = .gbuf_value; 


status = 
END; 


IF .status 
THEN 


atr(.ptr,atr$w_size 
atr(.ptr,atr$l"addr 
tr = .ptr + 17 

ND; 


: Expiration date 


IF .setfile$flagsCqual_expi)] 
THEN raptacict ab 


BEGIN 
CHSMOVE (8,exp_value 


= atr$s— 


ptr,atr$w_size 
= header 


ptr atest. addr 
eee = .ptr + 1; 
ND; 


atr 


FF 


BEG 
ot -ptr,atr$w_t ee) = atr$c ofocestrs 
= atr$s_rec 
s headeFLthosu. pecottri: 


header[fi2$q expdate)); 
atrt. -ptr,atrsu_t rr = atr$c_ex 


Maiti te expdate); 


If INDEXF.SYS 


Signal an pee 
modifying 
because of a 


count to 


: If something in the user attributes was changed, show it. 


(9) 


4 


Oem 


rf 6 

TF at 5 -1984 AX-11 Bliss-32 V4.0-742 Pa 43 
y5e-006 er8ee= 188s 93:85:8> | eer ehessE ee tes $52: 9 9) 
' Owner UIC 

i .setfileSflags(qual_owner] 

HEN 

BEGIN 

If the qualifier OWNER=PARENT was specified, then the UIC of the owner 
directory must be found. Rather than acces retes. the directory ong B time, a 


test is made to determine if the directory has already been 
go. en then the current value of UIC_VALUE is used. Otherwise, a new value is 


IF ,setfile$flags(qual_parent] 
ses 


IF NOT ((,nam[nam$w_did_num) EQL .old_did_num) AND 
(;naminam$w ~did_seq] EQL .old-did-seq) AND 
(.nam(nam$w_did_rvn] EQL .old_did_rvn)) 

THEN 

BEGIN 
LOCAL 


temp_atr : BLOCKVECTOR(2,8, BYTE). 
temp_desc : SBBLOCK(dsc$c_s 

temp fib “$BBLOCKLf ib$c “extdatad, 
temp_chan; 


temp SHtetd he Length) = .namCnam$b ar hs, 
temp desc dsc$a_pointer]) = .nam(nam$T_devJ; 

T (status = PSASS GNC DEVNAM = t _desc, 
THEN CHAN =temp_chan)) 


BEGIN 
SDASSGN(CHAN = .channel); 
£3 ee oots _opendir, 1, conf desc, .status); 


Be Se Se Fe Os Be Se Se Se Ge Se Se Ge Se Se Ge Fe Ge Se Se Ge Ge Se Fe Fe Se Ss Ge Se SH Ss Se Ge Se Oe Se Se Ss Ss Se Se Se Se Se Ss Se Se Se Se SH Se Se Ge Ge Oe Ge ee 

ee a a ee a a ee ee a ee ee ae nd ed ed ed 
8 ed ed dd dd dd dd 8 od = = dd dd 
S00 09 08 0909 SII NSN NO ITI BB 


5 
3 
39 5 
90 
99 91 
400 4 
401 9 RETURN true; 
she 94 END; 
40 95 
rte +] CHSFILL(O, fibSc_extdata, temp_fib); 
rts 3 98 temp_fib fipst -acctl] = fibSm_noread Pv es) -nowrite; 
40 99 temp. fiblfib$Sw_fid_num] = .nam(nam$w_did_num 
408 400 emp_fiblfib$w_fid_seq -naminam$w_did_ “seql; 
rst ret om ~fiblfibSwfid-rvn] = .nam{nam$w_did_ rund: 
411 408 temp_atr(0O,atr$w_type] = atr$c_uic; 
re 404 temp_atr(0O,atr$w_size) = atr$s_uic; 
41 405 temp_atr p-atrst. nee = wi _value; 
oi3 ste temp_atr( 2 
rey 408 temp_desc(dsc$w_length] = fib$c_extdata; 
2 rst temp_desc(dsc$a_pointer) = temp_fib; 
418 P 1411 status = $0]0W( ee, = = icete chan, 
$30 p ci¢ ce CCESS, 
421 P 141 
422 P 1414 is : temp. desc, 


6 
VE$eoc}9Ge Q0:6B:5)  YaNCON OLies=de,vesOaze2, Pane 


3 1 S=t atr): 
4 1 F .status THEN Status = 7iosbt 0); 
3 i HEN SIGHAL S$ TOP(set$ ir, 1, conf_d status) 
epee - 1, conf_desc, . us); 
§ 1 ponssen (CHAN = .temp_chan); 
END; ‘ 


header(fh2$l_ fileowner) = .vic_value; 
atr(.ptr,atrSw_type] = atréc_utc; 
atrL.ptr,atr$w_size] = ocr es vies 
atrl.ptr.atr$l-addr) = headerl fheSl_fileowner); 
Be = .ptr + 1; 


wu 


If /TRUNCATE was specified, find the block containing the EOF. If 
eve FOr occurred somewhere in that block, then truncate to the next 
ock. 
IF petit iobtlagetquat_truncs THEN 


tres Ce etere retin Mloorgs EQL fat$c_indexed 


VEU O OONOUE WN" OOanou 


Fe at at ot ot 
VWN—oO 


Ts 


SF BP Be Pe Pe caeesceesueaaatakokakea 


SIGNAL (set$_writeerr, 1, conf_desc, set$_notrunc) 


; ELSE 
4 BEGIN 
50 bl fib$v_trunc] = 1; 
3) fiblfib$l_exvbn] = .recattr(fat$w_efblkh)*16 
¢ + .recattr(fatSw_efblkl); 
5 IF srecarcel tetsu. ftpyted GTR 0 
THEN fiblfib$Sl_exvbn] = .fibCfib$Sl_exvbn] + 1; 


: Set the version Limit for a particular file 


SeNOue 


SELL LLLP EEE 
SSSVF¥N 


If .setfile$flagsCqual_vrsn] 
THEN 


SERS 


fiblfib$Sw_did_seq] = .nam[nam$w_did_seq); 
fiblfib$Sw_did_rvnj] = .naminam$w_did_rvni; 


fibCfib$Sv_findfid] = true; ! Set the findfid bit 
{tect ieSu_vert init) = .vrsn_value; ! And the version Limit 


BEGIN 
Hee did_num] = .nam(nam$w_did_num); ! Specify the directory 


w 
wea eal eal al al sl ah sl et ee ee et ee et ee ee oe 


Re 
SF 


3 


ao 


: If any journaling was requested, make those modifications 


status = 0; ! Flag: journaling info changed. 
ft dott tleSttagetquet journal) ! / JOURNAL 


SAN 
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E 
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4 475 
4 $28 
485 47 
4 $28 
4 47 
4 4 
4 4 
4 4 ¢ 
49 4 
49 4 
49 485 
494 4 
63s 
637 8s 
499 491 
33 
01 +) 
4 94 
0 95 
04 
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uw 
oo 
APANLSSSLE 
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oo 


PWNUOUN WY SOMONE WOODS 


a aa a ak aa nk tk ak stk et ak a = a as = = + a a 
DPD DUD DUP PUDPUDPVPVUPUPUDVDULIST USUI ELVIS IST STII TI 


ee ae td wt ot od 
SUEENMSSSVSEVRONVSSanenerunv—oSe we 


ee ee ee ee ee ee ml ee ee ee ee ed ae ee 


QPL PV PUPP PUPPIES STITT ITI BS 


RORORORNONURUNU 2 oe 


iSrseont9ge 00:55:51 


! If not 0DS2 
' tell the user 


CLIUTL.SRCJSETFILE.832;1 (9) 


BEGIN 
F ,header(fh2$b_struclev)] EQL 1 
THEN SIONAL CaetecnctodeeS et 


SOESCRIPTOR(* / JOURNAL" )) 
ELSE 
BEGIN 


i If any of the Ry ournal bits are going to be set 
: clear the existing header RU bits to avoid conflicts 


iF (.setfilesjf ‘ 
I setfilesj sea ape 1) sro ote bo | ia 


BEGIN 

header(fh2$v_rujni] = 0; 
header( fh2$v_only_ru] = 0; 
pooeer the$v-never_ru) = 6; 


IF sSORTTLED) TLaget rat spect tod _rul 


BEGIN 
header(fh2$v_rujni] = .setfile$jflagsCjrnt_rul; 
setfileSmflags(misc_mark_file] = 1; 

status = 1; 


ELSE IF .setfile$jflagsljrnt spec it ied_onty_rul 
~on T RU only 


BEGIN 
neader( fheSu_only ru = .se 
setfileSmflags(mis 


bf 1LeS| flagsljent_only_rud; 
= 1; 
status = 1; 


c_mark_file 


ND 
ELSE IF “sett iles)flagsl jrnt speci tied never ru) 
eae Tr RU never 


BEGIN 
nooder these never ful = .setfile$jflagsl(irni_never_rul; 
setfileSmflags(misc_mark_file] = 1; 

preeus = 1; 


If .setfile$jflagslirnt_specified_ai] 
! Al Journaling 


BEGIN 
header(fh2$v_aijnt) = Seg tileSittagslirnt at); 
sett  Lesat Logslatec mark tile = 1; 

status = 1; 


END; 
IF .settile$jflagslirnt_specified_at) 
aes ! AT Journaling 


BEGIN 


SEE ee 


AX-11 Blis sifele 0-742 Page 45 


ae 


| 6 

1b-sep-1986 00:55:51 aNat BLisge32 v4.0-762 
senftCadagtagetlts2 suit htLeseltigecirat et 
status = 1; 


Ee . 
IF .settile$jflagslirnt_specified_bil 
! BI Journaling 


w 


BEGIN 
header(fh2$v_bijni] = opog ti lgS)thegslirat ot]; 
setfileSmflags(misc_mark_file] = 1; 
status = 1; 
END; 
END; 
' 
i If there were any journal bits set, show it. 


uw 


IF (.status EQL 1) 
THEN 


w 
Sete) 


BEGIN 

atrl.ptr,atr$w_type] = atr$c_journal; 
-ptr,atr$w_size] = atr$s_journal; 
-ptr,atr$l_addr) = header th2$w_ journal); 

pee = .ptr + 1; 


SSSECEEE 


WONOULSWN—O 


If an rmsjnlid ACE needs to be added, add it here. 
(Only one rmsjnlid ace is needed for journaled file.) 
HF gbetttlotattogelatoc mort filed AND NOT .setfileSmflags(misc_already_rmsjnlid) 

BEGIN 
i Build JNLID ACE: volume name + file ID + current date/time. 
rmsjnlid_aceCLace$b_size) = id_acess_ size; 
rms jnlid_ace ace$b_type = aceé$c_jnTlid; 
rmsjnlid_acelace$w_f ags] = 

ace$m_hidden OR aceSm_protected OR ace$m_nopropagate; 


SITMLST_INIT CITMLST = item_List, (ITMCOD = dvi$_volnam, 
BUFADR = label_buffer, BUFSIZ = 12)); 


Status = SGETDVI(EFN = 1 
IF .status 
5 SWAITFR(EFN = 1) 


SIGNAL ( Bg 3S-badlogic. 0, .status, 0); 
e. NOT .iosb 


SIGNAL( set$_badlogic, 0, .iosb{0], 0 ); 


PPA 


IN abelah eh lh hh hd 


a 3 


WW wee e te ee ee eee ele le tele le lu le oP oF oo oo or oF eels al ala? oF oF oF oF ot it, se ee ete te ts es] 


SNSSS 
-Oo 


CHAN = .channel, ITMLST = item_List, 
{0SB = iosb); 


a ce ee ae a a 8 ed ed 8 nd od ed ad 


QPP PDPVD PDD SVS SVS AAPA AAI 


ee eee SY 


ARUN SOSNO ARNIS OOo UO hue 


tT ab Ab Ab ib bh ehh hh bbb bbb bbbuhd db ab eb-tb-abab 4) 
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CHSMOVE(12, Label_buffer, rmsjnlid_acelid_ace$t_labelJ); 
rmsjntid_ cheep a: -8ceSu_num) = .nam[(nam$w_fid_num sea): 


a 
S 


rms jnlid_acelid_ece$w_seq] = .nam(nam$w_fid_seq 
rmsjnlid_acelid_aceSw_rvn] = .naminam$w_fid_rvn 


SGETTIM( TIMADR = rmsjnlid_aceLid_ace$q_time] ); 


OO 


Serf: -ptr,etr$u_ type be) oan ddaclent; 
atr ptr atriu_ st $s Size; 
oer per are seadr = ras nliae ace; 


Eno; 
ND; 


ISS ERT 


' 
} Record journals to use in access control List. 


' 
: Al Journal Name 


SSetSaR oN sSsEsss 


=o 


— 4 a a 


NOV EWN $C COVA EWN O 


a i ak a tk at a at et 2 8 2 = as 2 8 
oa 


SFAPAAAAAAAOH 


If .setfile$jflagslirnt_ai_name] 
THEN 


atrl.ptr,atr$w_s = 4 + .3i_jnl_descldsc$w length); 
atr ptr -atrSt_ addr = ai_jnl_ace; 

ptr = .ptr + 1; 

ai_ =jet: scat tcesbct size) = 4 + .ai {nts _desc(dsc$w_length]; 


o nl_aceLlace = acesc_a 
dden OR ace$m protected; 


GIN 
; -ptr,atr$w_t ee) = atr$c_addaclent; 


—t —42 8 + ad bs ss 


WMP DONA VE WO OONAU Ew 


nl-acelace$w_ 11258) = acess. h 


CHSMOVE + as desc Gec hu length] 
ni-descldsc$ ointerd, 
at "yal acelace$t_ji neal’: 


; AT Journal Name 


If .setfile$jflagsljrnt_at_name] 
THEN 


AAPA APAAPAOAAAAAAAAAAAAOAH 


BEGIN 

atr Neer meet. type = gtc%,s addaclent; 
-ptr,atr$w_ sie nl _descldsc$w length]; 

atr =ptr atest. addr = at ia. ace; 

ptr = .ptr + 


atcfat: sect ~size = 4+ .at stints _desc(dsc$w_length]; 


nl_acelace$b ~fype = ace$c 
nl-acelace$w_flags) = acesa. hidden OR ace$m protected; 


a ee ee ek a a ed od od nd ad nd od nd = 2 st 


Reel tas tal tal tai al tal al at ot ot of ot of ot ta] tal al tal tal tal tal val taltaltaltaltal af at af of af af af of af af af af of 
m we 
7 
$ 


me a aaa ed a a at at a oe 2 oe = 


No 


aa (t 


ax 
S 


wn 


——) 


PAA A AAO 


xk 6 

1x88 138¢ 99:85:5) eeu UT Obtegse 
CHSMOVE (.at_jni_desc(dsc$w_length) 
na, esettesteete tees 


Bl Journal Name 


SSSEESSSIEESSS 
a ee A233 23 


ANN 


Me wtyv 


SESSESERES 


i 


3a 
QS 


PAPASOAAHAO- 


ys i 
a tl Le$jflagsljrni_bi_name) 


BEGIN 
atrl.ptr,atr$w_type) = atr$c clent; 

atrL .ptr,atr$w_size) = 4 + .Bi_jni_descldsc$w_length); 
atr str -atrSt oder = bi_jnl ace; 

ptr = .ptr + 1; 


bi_jnt_ecelace$b_size] = 4 + .bi_jni_descldsc$w_length); 
bi_jni_ace acesb_ type = ace$c_bTjni; 
bi_jnl_acelace$w_flags]) = ace$m_hid 


den OR ace$m_protected; 
CHSMOVE C-Bi-Jnt desc idec$u_ length) 
-bi_jnt_descldsc$a_ interd, 

aaa bi_Jni_aceLace$t_jnlnam)); 


Write the modifications out to the file header, and close the file. 


gcccceceeee 
CONOUS WO 


Arun—o 


SAO 


2388 
ooo 
3 


wn 


vuvvuUU 
a a a a ad a td a a a ad 8 a 1 ts a a = td tt tt 
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WW ee eee ee ee eee ewww ot ot ot oF ot ot oF oF olga a a al ah al al al alal aital at at at at at at af aia. taltal 


NNN NOOO $2 So Ge Se Ge Se oe 
ooo 
SSSFSEscs SLSSZES w = 


APOROAAAO 


SSLSSE 


fibCfib$t_acictx) = 0; !' Make sure RMS journaling ACEs first. 
atr iptr.0-0.82, j= 6; ! Put a zero at jou of attribute list 
' If an attribute was changed 


If ( ptr NEQ 0 : 
OR “Set {LeSf lags qual trunc] ! Or the file should be truncated 
= -setfile$flags(qual_vrsnj]) ! Or the version_lLimit set 


$ 2Bmsgee Dy 


! Make the modifications 


LEN 
“dese, 

= atr); 
Status THEN status = .iosb(0); 
NOT 
Ny 
E 


If .setfile$flags(qual_log) ! If /LOG, tell user 


es 


<i 


- Status 
file_error(set$_writeerr,.status,.fab) ! If the modify failed, tell user 


6 
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TF SIGNAL (set$_modified,1,conf_desc); 


se 
Se 


1 : 

1 ' Now 9 close the file. Don't bother to check the status, since the 
} ; modifications got made correctly. 

15 i $Q10W( CHAN = channel ! Deaccess the file 

1 P FUNC = fos DEACCESS, 

1 b 10S8 = ios6, 

1 Pl = desc); 

1 END; 


i If /REMOVE or /ENTER was specified, process it 
if (.setfileSflags(qual_remove] OR .setfile$flags(qual_enter]) 
BEGIN 


tt a a 


MEUM O OONO UNE WN $0 OONO UE Um 


Set up the FIB appropriately 


fib$Sw_did_seq] = .nam[nam$w_did_seq); 
fibSw_did_-rvn] = .naminam$w_did_rvn); 


IDET psu num] = .nam(nam$w_did.num]; ! Put in the directory ID 
ib 


Sa i in i i Mi Bin Mn ee Pe a en, a ee, ee ee | 


SRS AR CSO Oo 


If /REMOVE was specified, remove the directory entry 
If .setfile$flags(qual_remove) 

THEN 

BEGIN 


Check to see if an explicit or wild version number was specified. 
If not, exit with an error. 


NOU ew —o 


IF NOT (.nam(nam$v_exp_ver] OR 
-nam(nam$v_wild_ver)) 
THEN SIGNAL (set$_remerr, 


conf_desc, 
set$_delver) 


SPELLS 


PSII 
Fwn 0 0@ 


If /C 
i 


: sow jn was set by the user, then interrogate him to see 
e 

E 

I 


directory entry is to be removed. 
a 


LSE 


SOIT 


SSNS 


2s 


BEGIN 

IF .setfile$flagsCqual_ quit_rem 

OR NOT teett ited? Levetauel cont tend 
THEN true 


LSE 
BEGIN 


aon 
wn 


me ee ee mt ee ek a ed nd od od ot 
am lk et a dt a ns a 8 a a 1 ss 1 1 2 2 = a = 2 


Se he fe De Det Bem_ tin Bt te i i te Bf fe te fe fe Sn ie fe i ee ee Se ee i ee i ee | 


PAPA E BBE 


NEW OOOO uUSewn Oo 


Anon & BBE EEE ENE & EF FAA HN MAI IIRIPIPININIWUS BPP PEEP LEN 
~<a 


Pe 
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ant 
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5 7 status = LibSconfirm_act(ZASCID ‘Remove directory entry for !AS? (N]: °, 
ZREF (conf _desc)); 
if NOT .status 
HEN 
BEGIN 
7 i -Status Fee Libs _quipro 
7 9? HEN (setfile tlegsCaua quit] = 1; RETURN true) 
77 FUSE $ etus EG. t be _quiconact 
77 765 HEN (setfile fLagsCayat quit.rem = 1; status = 1) 
77 7 FUE -Status NEQ Lib snegans 
ot? 7 ae SIGNAL (set$_writeerr, 1, conf_desc, .status); 
i om. 
16 77 
7 4k THEN 
781 77 
7 ; 774 
7 775 
7 77g 
moO 
mi 
789 4 Isolate the file portion of the resultant file string 
791 7 file_name[0) = .nam[nam$b_name) 
35 7 + -nantnan$b_type) 
79 + .nam(nam$b_ver); 


file_name[1] = .nam{nam$\_name); 


ee] 
WMFwn— 


SSSSELEARLANSS 


Issue the Q10 to remove the directory entry 


status = $Q0]O0W( CHAN = .channel 
FUNC = 10$ DELETE, 
10SB = iosb, 
Pl = desc 


SOS 
wr 


vuv0vU 
eee ee em a a ee a a a Oe ed a od od od od = = 


z 


P2 = file_name); 
.status THEN status = -iosb(O); 
NOT .status 
N SIG Sset8_uritecrr. ! Error writing 


file name, ' to this file 
.status) ' for this reason 


> 
Oo 
w 


SPoReS Sessa 


If . 
THEN SIGNAL (set 


SSSSSSssss 


sett itestlopsCqual. | } ! If /LOG, tell user 
_removed,!,conf_desc); 


END 
t 
: If /ENTER, enter the name in the directory 
LSE 
BEGIN 


LOCAL 
new_name : VECTOR(2), ! Place to put new filespec 


ee ee a ee me ee em me ee ec ee ce ee ee ae ae ed ed od nd ed 


ND 

& 
BEGIN 
fiblfibSw_fid_num] = 0; ! Clear the File ID 
fiblfibSw_fid_seq] = 0; 
fiblfibSw_fid_rvn] = 0; 

4 

4 

4 

4 

; 

4 

4 
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1 new fab : LOCK( fab$c_bin), ' Temp output fab 
1 new_nam ; tock nam$c-bin i Temp output name block 
new_nam2 : LOCK(nam c. 4 ni. i another temp nam block 
new_desc : $BBLOCK gec in), } sf expan for ney name 
new_nam_exp : VECTOR nanSe certs Bvt a4 prpenges string 
new_nam_exp2 : VECTOR(nam$C_maxrss,BYTE xpanded string2 


' 
! Initialize the fob and name block, using the hi: file name block 


: as the related file. 

& SFAB_INIT ( FAB = new. Ln, 

P NAM = 

Pp FNA = “tite. onone i 
FNS = e-namel0 j; 

P SNAM_INIT ( NAM = ne a in 

p RLF = nam, 

P SA = new_nam_exp, 
SS = nam$c_maxrss); 


If the original file specification had a wildcard version number, then 
use one here. 


IF (.namCnam$v_wild_ver)) 
THEN 


CD OD OD OD CD OD OD CD CD OD 0D G9 CD C9 C0 GD. 09.00 0009 0D CD CD CD 
BEA WA AAAI 3S 
wow VMEFWN—OOOnous 


Poy oy yt ot ta a a eh et et te le eh hh hl ed a al al ek al ee ot ot ot ot ot ot oF oF oY ot af at ot at ot ot at at ot nt 


BEGIN 
new ~fabt fapst_ dna) = UPLIT('; aa Te 
new_fablfab$b_dns) = ZCHARCOUNT ( 3"); 


™~ 


NOUS WN (OO OSNOAUE WN 


BEGIN 
new_fab{(fab$i_dna] = 0; 
nee “fablfab$b_dns) = 0; 


Parse once, with the OFP bit off, to fill in all the fields 
from the original name block 


etecys = SPARSE (FAB = new_fab); 
CHSMOVE (nam$c_bln,new =nane new _nam2); 
arse_null_string(new- fabs 
F NOT .status 


eiotd ttt tt atte ete 


PIA 


BEGIN 
SIGNAL_STOP(set$_enterr, 


539 cont desc, 
filename, 
86 Status); 


wn 


RETURN true; 
END; 


‘ 
: Now parse with OFP set, to obtain the final file name 


SFAB_INIT( FAB = new_fab, 
N = new_ nam 
FNA = new _nam2Cnam$l _esal, 


w 


a a a ee a ed ed dd 8 = = 2d oe od = 


wvvvD 


NO 
So 


<i 
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: 1879 P 1871 4 FNS = .new_nam2(nam$b_eslJ, 

| 1 Xe 4 FOP = ofp); 

3; 1881 P 1875 4 SNAM_INIT( NAM = new_nam, 

3) ¢ P 1874 & RLF = nam, 

3 1 P1875 4 SA = new _nam_exp2 

; ! ; f é SS = namSc_maxrss); 

3 1 4 & status = SPARSE (FAB = new_fab); 

3 1 1879 4 CHSMOVE (nam$c_bin,new_nam,new_nam2); 

:1 1880 4 parse nul l_stFing(new- fabs; 

3 3 1881 4 F NOT .status 

3 3 39 1 4 THEN 

: 1891 1 BEGIN 

3 1 4 1884 sachatatacts vias emit ! Error entering 

; 189 1885 . 

> 1894 1 ry] conf_desc, ! This file 

3; 1895 1 ile name, ' as this file 
3 1996 1888 »Status); ! Not on same device 
; 189 18289 RETURN true; 

; i} 24 1899 4 END; 

; 1899 189" 4 

3 19uu 1994 4! 

; 1901 1898 4 | Get the full file name 

; 1308 18946 4! 

3; 190 1895 4 non penen ny = a nam$b_esl]; 

3 1904 1398 4 new_name[1J = .new_nam2[nam$l_esa); 

3 1905 1897 4 

; 1906 1898 4! 

3; 1907 1899 4 ! Find the actual file name 

; 1908 1900 4! 

3; 1909 1901 4 new desc(dsc$w_length] = .new_nam2Cnam$b_name] 

: 1910 1906 4 + .néw_nam2(nam$b_type) 

3; 1911 1903 4 + .new_name(nam$b_ver); 

5 a 1904 4 new_desc(dsc$a_pointer] = .new_nam2[nam$l_nameJ; 

3; 191 1905 4 

3; 1914 1906 4! 

3 1915 1907 4 ! Put in the file ID of the target directory 

; 1316 1908 4! 

3; 191 1909 4 fiblfibSw_did_num] = .new_nam2(nam$w_did_num]); 

; 1918 1910 4 fiblfib$Sw_did_seq] = .new_nam2(nam$w_did_seq]; 

5 4 Hb a8 ; ; fiblfibSwidid_rvni = .new_namé(nam$w_did_rvnj; 

; 1951 1918 4 ! Check to see that the enter request is for the same device. If not 
3 19 3 1914 4 ! signal an error. This is done by comparing the DVI field of the RMS 
3; 19 1915 4 ! name blocks. 

3: 1924 I3t8 4! 

: 1925 1917 4 

3; 19 $ 1918 4 IF CHSNEQ( .(namCnam$t_dviJ)<0,8>, namCnam$t_dviJ+1, . 

3; 19 1919 4 . (new_nam2Cnam$t_dviJ)<0,8>, new_nam2 nam$t_dviJ+1, 0) 
3 } ; ? ? THEN SIGNAL (set$_enterr, ! Error entering 
3 1930 19 é 4 conf_desc, ' This file 

3; 1931 19 & new name ' as this file | 
: 19 é 1924 4 RMSS_DEVS i Not on same device 
7 19 1925 4 ELSE 

; 1934 19 g 4 

3; 1935 19 4 ! If /CONFIRM was set by the user, then interrogate him to see 


} 


Pp 52 
age 35 
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3 1 13 § 4 ! if the file is to be entered in a directory. 

3; 1 1 4 i 

3 1 19 4 IF 

3; 19 19 BEGIN 

; 1940 19 § IF .setfile$fla ge taual. quit_ent] 

3 1941 19 OR NOT isettiles flagsCQual_Ctonfirm) 

: 1306 19 true 

3; 194 1935 

3 19466 19 6 BEGIN 

3 1945 19 6 LOCAL 

3 are | 19 6 : VECTOR(C2); 

3; 194 19 6 argtist 0 “s conf geese: 

3 1368 1940 6 arglist = new 

3 132 9} ? status = LibSconTirm, ~acUCEASEID ‘Enter 'AS as !AS? CN]: ', 

; arglis 

3 133) 1908 6 IF NOT .status . 

3 19 ¢ 1944 8 THEN 

3; 195 1945 BEGIN 

3; 1954 1268 7 If .status Fey Libs quipre 

3; 1955 194 8 THEN (setfile$fla LagsCaua -quitl = 1; RETURN true) 

3 1238 1948 ELSE IF saretus EQL Libs” -aui conac 

3; 195 1949 : THEN took ile$f LagsCaual . quit_ent] = 1; status = 1) 

3; 1958 1950 ELSE IF ped he aedy “negans 
3 oe 132) { a SIGNAL (set$ uwriteerr, 1, conf_desc, .status); 
3; 1961 1988 6 -status 

3 1306 1954 : END 

3; 196 1955 END 

3: 1964 1328 4 THEN 

3; 1965 195 BEGIN 

3 1268 1958 

3; 196 1959 : Issue the 010 

3; 1968 1960 

; 1299 1961 

; 1970 P 1306 status = $0]0W( ty = .channel ! Enter the new name 

: 1971 P 196 FUNC = [0S CREATE, 
: Ore P 1964 10S8 = iosb, 
3: 197 P 1965 1s Sone, 
3 1974 1208 P2 = desc); 
+ 1975 196 IF status sTHeN stews =” .iosbt0); 

; 1376 1368 If NOT , 

3 Hb 144 by 34 THEN SIGNAL (set enterr, ! Error enterring 

; 1979 1971 cont desc, ' this file 

: 1980 1376 new_name, ' as this file 

3 1982 Hb 46, — .status) ' for this reason 

: 19 1975 IF .se siLiretttegetquel,, log) ! If /LOG, tell user 

3: 1984 1278 THEN SIGNAL (set$_enteréd,2,conf_desc,new_name) ; 

3; 1985 1977 4 END; 

: 1986 Hb 44 | END; ! End of /ENTER block 

3 Hb tf 2 END; ! End of modify block 

: 1989 19 1 : If /UNLOCK was specified by the user 

: 1991 19 , IF .setfile$flags(qual_unlock] 

3: 1992 19. THEN 
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1 1985 i NOT (status = unlock _action(.fab)) 
1994 19 HEN 
Mb a 12 SIGNAL (set$_unlockerr,1,conf_desc,.status); 
1399 19 : 
1338 ib 4! If /PROTECTION was specified by the user 
199 . F .setfile$flags(qual tecti 
09) 1938 thei NOT (st aaa attr = yes fab)) 
status = se tion(. 

008 1996 “ SIGNAL ( re thy fd , ) 

set$_proerr,1,con -«Status); 
Ope 1397 Pp conf_desc,.status 
009 1939 i i) ign the ch t 
ee 4 : eassign the channe 
010 O08 IF NOT (status = SDASSGN(CHAN = .channel)) 
a et THEN file_error(set$_closeerr,.status,.fab); ! If deassign failed, say so 
O18 9'¢4 — true; ! Continue processing other files 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


53 41 21 20 65 6C 69 66 ¢ 79 66 69 64 6F 40 stg P.ADN: .ASCII \Modify file !AS? [NJ] : \<0> 
00 20 3A 20 5D 4E 5B 20 3F OO03AF 
4 0017 00388 P.ADM: .LONG 17694743 
000000° 0038C -ADDRESS P.ADN 
45 53 41 52 45 2F O3CO P.ADP: .ASCII \/ERASE\ 
03C -BLKB 2 
80008 03C8 P.ADO: .LONG 
0000000" O003CC -ADDRESS P.ADP 
45 53 41 S52 45 4F & F 00 + P.ADR eASCII \/NOERASE\ 
908 8 D8 P.AD - LONG 
000000" 00 +3 ADDRESS P.ADR 
59 52 4F 54 43 45 52 49 46 4 $50 fF O3E0 P.ADT eASCII \/NODIRECTORY\ 
608 0 ef P.AD - LONG 
000000° F eADDRESS P.ADT 
4C 41 4E S52 55 4F 4A 2F OOSF4 P.ADV eASCII \/JOURNAL\ 
908008 , OSFC P.ADU: .LONG 
ated eADDRESS P.ADV 
6F 7% 63 $5 72 69 64 38 5 76 6F 6 404 P.ADX: .ASCII] \Remove directory entry for !AS? (NJ: \<0> 
41 21 20 72 6F 66 2 7% 6 $ 33 
20 3A 5D 4E 5B 
A ASCII <0><0> 
C P.ADW: .LONG 17694757 


-ADDRESS P.ADX 
P.ADY: .ASCII \;#\<0><0> 
P.AEA: . ASCII \énter 'AS as !AS? (NJ: \<0> 


4 
20 P.ADZ: .LONG 17694743 
) «ADDRESS P.AEA 


-PSECT SOWNS .NOEXE ,2 


ses 
23 
S2 4 
et amar | 
esos 


a ae 
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00004 RMSJNLID_ACE 

00024 OLD_01D =n: 
00026 OL0_01D_SE0: | 

00028 OLD_D1D_RWN: 
-BLKB 


2 
2 
2 


-EXTRN SYSSASSIGN, SYS$Q10W 
-EXTRN SYSSDASSGN, SYSSGETDV 
-EXTRN SYSSWAITFR, SYSSGETTI 


-PSECT SCODES,NOWRT,2 


seh: oa Se, tape ye $ R3, mM. Rs R6,R7,R8B,RI,R10,R11 1016 
° ave R $ 
58 00000000" EF gE 90002 mova Seve rCestcaes ats 
Beer 0 MOVAB -1608(SP), | 


A 4 DO 000 MOVL FAB, R10 + 1050) i 

7 8 AA DO 0001 MOVL 40(R10) : i 

47 92 06 EO 00016 BBS SETFILESFLAGS®2, 2s : 1063. 
01 CB 04 A? DO 0001B MOVL sears CONF _DESC+ : 1069) i 
018C «= CB 03 A? 98 00021 MOV7BW 3(R7), CONES “DESC + 1070. : 
7E 7C 00027 CLRQ = =(( SP) : 1072) i 

7E ps 0029 CLRL = = (SP) : : 

018¢ cB 0028 PUSHAB CONF DESC : : 

E CLRL =(SPY $ ; 

00000000° PUSHAB CONTEXT : : 

00000000G 00 CALLS #6, LIBSQUAL_FILE_MATCH 3 ‘ 
58 MOVL RO, STATUS ; | : 

A BLBS STATUS, 3$ : 1078) : 

F CMPL SATUS, WLIBS_FILFAIMAT : 1081. : 

BEQL $ 3 3 

PUSHL STATUS > 1085) : 

018¢ PUSHAB CONF _DESC 3 1082 | : 

0077109A 0 PUSHL #7803034 : | 

00 : CALLS #4, LIBSSIGNAL : | i 

BRW 103$ > 1086 | i 

MOVZBW 57(R7), DESC ; 1093 : 

MOVL 68(R7). DESC+4 + 1094 : 

CLRQ = = (SP) : 1097 | 

PUSHAB CHANNEL : i 

PUSHAB DESC : i 

CALLS #4, SYSSASSIGN : ‘ 

MOVL RO, STATUS 3 j 

BLBS STATUS, 4$ : 

PUSHR #*M<RB_R10> : 1101 ‘ 

PUSHL 803084 > 1100. } 

MOVZBW #64, DES : 1108. 

MOV FIB, DESC+4 + 1109. ‘ 

mMOVCS #0, (SP), #0, #64, FIB > 1111 

MOVZ2WL #1281, FIB > 1116, 
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FFS4 «OCD 4 a? D ; MOVL (R7), FIB+4 3 1117 
Fes CD 34 A? 8B B mOVW £6(R7} F1B+8 + 1119 
E 68 1 39 BBS a. SETFILESELAGS, $ : 11 5 
A 68 é BD BBS #2. SETEIL SFLAGS, 5$ 11 
68 C BBS a, § TEILESELAGS. k : 11 3 
68 5 ¢ BBS #5, SETFILESFLAGS, 5$ t 1129) 
E 68 6 ¢ BBS #6 SETEILESELAGS, $ : 11 
8 CD TST8 SE TFILESFLAGS s 1131 
A 1 CF BLSS : 
26 01 ABE D1 BLBS SETFILESELAGS $+1 11 4 
21 1 AB 1 € DS BBS Wi, SETFILESFLAGS#1, 5$ 11 
¢ i «# : DA BBS #2. SETEILESELAGS+1, 2 t 1134) 
1 1 AB DF BBS #3, SETFILESFLAGS*1, 5$ t 1135) 
12 1 AB E £4 BBS #5, SETFILESFLAGS*1, 3 : 1136) 
0D 1 AB E 9 BBS #6, SETFILESFLAGS*1, 5$ > 1137. 
08 02 AB .o E BBS #1, SETFILESFLAGS* 3. 5$ : 1138. 
02 AB “ ; i F BBS 3, SETFILESFLAGS* 5$ : 1139 
02 AB 93 FB 5$ STB SETFILESFLAGS+#2 : 1142. 
SA 6B 3s 3 100 BBC #3, SETFILESFLAGS, 9$ t 1143, 
6€ 018¢ cB E 00104 MOVAB CONF_DESC, (SP) > 1148 
E DD 00109 PUSHL SP : 
00000000" EF 9F 00108 PUSHAB P.ADM + 1147) 
000000006 00 FB 00111 CALLS 2, LIBSCONF IRM_ACT ; | 
58 09 00118 MOVL RO. STATUS : 
40 3 £8 00118 BLBS STATUS, 9$ : 1149 
000000006 D1 IE CMPL STATUS, #LIB$_QUIPRO : 1152 
03 12 001 BNEQ 6$ : | 
09C3 31 00127 BRW 89$ ; | 
000000006 8F 38 D4 01 A 6$ cMPL TATUS, #LIBS_QUICONACT $1154) 
02 as 80 or is 01 BISB2 #128, SETFILESFLAGS+2 + 1155 
5 01 D0 91 MOVL #i, STATUS 3 
000000006 8F 58 D1 00130 7$: CMPL STATUS, #LIBS_NEGANS ; 1156. 
15 13 00144 BEQL $ : | 
5 pd 0146 PUSHL STATUS ; 1157) 
018¢ 44CB OOF 0014 PUSHAB CONF _DESC : | 
1 DD 0014C PUSHL 1 : 
000000006 8F DD 0014E PUSHL #SETS$_WRITEERR : | 
000000006 4 FB 00154 CALLS #4, LIBSSIGNAL 3 
8 £9 00108 Bs: BLBC sTArus 11 : 1159. 
98 AD D 000020 F 2 O19 $: MOVL #655872, ATR : 1166, 
9C D : 1 MOVAB HEADER, ATR+4 : 1167. 
A0 AD D 9023002 F g 016¢ movL, 293792, ATR+8 > 1169 
AG 0000" EF 9E 00174 V RMSJNLID_ACE, ATR+12 : 1170. 
As AD D4 oi7e CLRL  ATR#16 : 1171, 
00000000" EF 0600082 gf DO 0017F MOVL #100665376, RMSJNLID_ACE : 1173. 
E D4 OBA CLRL > 1181 
98 AD OF 91 c PUSHAB ath ; 
7E 7C 0018F CLRQ = = (SP) : 
7E D4 00191 CLRL = = (SP) : 
90 AD F 00193 PUSHAB DESC : 
C 001 CLRQ ss =(SP) : 
FCEQ ob 9F 0019 PUSHAB 10SB : 
7E 9a 0019C MOVZBL #114, -(SP) : 
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59 2¢ 3 3C 001A0 MOVZWL CHANNEL, R9 ; 
3 DD OO1A4 PUSHL 9 : 
Seep —E D4 146 CLRL. ss = (SP) : 
000000006 1 CALLS #12, SYS$QI0W : 
DO OOTAF MOVL RO, STAT : 
: 1B BL at STATUS, 108 ; 1182. 
FCFO z f 1B MOVZWL 1088, STATUS : 
14 E8 OO01BA BLBS STATUS, 1 ; 1183 
500 F 6B 001BD 108 PUSHR #*M<RB.R10> : 11 
oo00ges fF DD 001C1 PUSHL #SET$_READERR : | 
00000000v EF 3 : 1¢7 CALLS #3, FILE_ERROR : 
062A ce 11$: BRW 728 : | 
01 FDS7 rf 1p 12$: CPB 2 gee #1 : 1191) 
cD FOSE CD g 1D8 MOVC3 #32, HEADER+14, HEADER+20 + 1192) 
00000000" EF ; 3 13$: ist RMSJNLID_ACE+1 : 1198 
OC AB if8 BIS82 #4, SETFILESMFLAGS : 1 00 
D4 OOIEC 148:  CLRL PTR : 1207) 
D4 3 CLRL STATUS t 1212) 
08 68 1 €1 OO1F BBC #1, SETFILESFLAGS, 15$ 2 1216, 
FDB4 cp é A OO1F4 B1(B2 #2, HEADER+52 + 1217 
8 DO 001F9 MOVL #1, STATUS : 1218) 
08 68 ; 3 1FC 15$: BBC a3. SETFILESFLAGS, 16$ : 1 Q| 
Fas 00 BISB2 #2. HEADER+52 :4 | 
: 1 DO 00205 VL #1. STATU t 1226 
26 68 3 08 16$: BBC #6, SETFILESFLAGS, 18$ ; 1227) 
01 FDS? cD 1 0020¢ CMPB HEADERS 7, #1 : 1230) 
17 12 0021 BNEQ 17S : 
00000000" EF 9F 0021 PUSHAB P.ADO ; 1233, 
1 0D 0021 PUSHL t 1231) 
000000006 8F DD 00218 PUSHL #SETS_NOTODS2 : | 
000000006 00 ; re i CALLS #3, LIBSSIGNAL : 
FD86 «CD ry A 17% BISB2 #2, HEADER+54 > 1236. 
58 1 B0 F MOVL #1, STATUS : 1237 | 
68 0232 18% TSTB fF ILESFLAGS : 1240 | 
26 «(18 . BGEQ 3 
01 FDS? cp 91 CMPB HEADER*7, #1 + 1243 
17 12 00 BNEQ 19$ : 
00000000" EF 9F 00 PUSHAB P.ADQ > 1246, 
1 0D 9 4 PUSHL @# + 1264 | 
000000006 8F DD 0024 PUSHL #SET$_NOTODS2 : 
000000006 00 FB CALLS ’ § LIBSSIGNAL : 
FD86 gp 8A 19$:  BICB2 #2, HEADER+54 : 1249. 
68 i 20$: BBC #4, SETFILESFLAGS, 25$ t 12564 | 
ott AB 1 3 6 BBC a, SETPILES FLAGS, 21$ ; 1257 | 
05 AB ft 6A 218: BBC #3. SETFILESDFLAGS, 22$ : 1258 | 
FD CD A BICB2 «#8. HH + : 
05 AB fi 4 22%: BBC é SETFILESDELAGS, 238 + 1259 
FD CD 1 8 BISB2 #16, HEADER+52 ; 
05 AB 04 i 238: BBC a SETFILESDELAGS, 24$ : 1260. 
FD gp 10 BA BICB2 #16, HEADER+52 ; 
01 DO 00288 248:  # MOVL #1, STATUS > 1261 
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09 


3C 


09 


01 


Fore 


000000006 
FD6C 
rD70 


Fo78 


2 S6aS5 RRR was S 


~“ 
m 


00 
cD 
gp 

8 
AB 
go 

8 
19 
9E 
9E 
9E 
20 
AB 


FDS7 8 
00000000' , 
000000006 

1 
8 


Ga ance 

0 

98 AD46 
04 

9C AD46 
F084 58 
01 

20 of 
» § 
i 

26 «A 
1F 

29. «A? 
1A 

0800 8F 
018C . 
000000006 , 
11 

FD68 Dd 
0200 br 
02 

24 ao 
i 

9A AD46 
v6 wl 
4 

9C AD46 
FD64 gP 
01 $ 
: 


WS VSSFS=GSS SULT 
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MODOI—"000W—0-@ -wWmoamee 
SSO — WSS MONON OD Rem 


4 7 
16-Sep-1 753: 
12-808-1 382 99:33:07 
258: eee 
o BNEQ 
9 PUSHAB 
90 PUSHL 
oF PUSHL 
AS CALLS 
AC BRB 
A 268: B1CB2 
B MOVL 
43 278: BLBC 
PUSHAQ 
BB MOVW 
C PUSHAQ 
C4 Vw 
C7 PUSHAQ 
C VAB 
Dd INCL 
D CLRL 
D4 28%: B3C 
09 MOV 
OF MOVL 
E2 298: BBC 
£6 CMPW 
pa BNEQ 
Ec CMPW 
f BNEQ 
F TST8 
F BNEQ 
F MOVZWL 
FC PUS 
PUSHL 
0 PUSH 
CALLS 
OF BRE 
11 30$: MOVL 
18 MOV 
1F MOVi 
$ 318: BBC 
MOV 
MOVL 
32$: BLBC 
PUSHAQ 
MOVW 
ry PUSHAQ 
MOVW 
PUSHAQ 
5 MOVAB 
A INCL 
338 BLBC 
Movc3 
PUSHAQ 
8 VW 
PUSHAQ 
VW 
PUSHAQ 
VAB 


AX-11 Blis see vV4.0-742 
CLIUTL.SRCJSETFILE.832;1 


5, SETFILESFLAGS*1, 278 
H ADER+?, "1 
A 


# 
#SETS_NOTODS2 
TB$S1GNAL 


] 
HEADER+52, @(SP)+ 
PTR 
STATUS 
#1, SETFILESFLAGS+1, 398 
EXTE VALUE, RECATTR#1 
#1, STATU 
#5 SETFILESFLAGS, 31$ 
(rR7), # 
(R7), #1 
41(R7) 
#2048, -(SP) 
CONF _DESC 
#SETS_WRITEERR 
#4, LIBSSIGNAL 


RECATTR#4, RECATTR+8 
#512, RECATTR+12 


#1, STATU 
#2, SETFILESFLAGS+1, 32s 
GBUF VALU RECATTR#2 


R+4(PTR 
ME ADER* CO. a(SP)+ 
SETFILESFLAGS+1, 348 


a is VALUE, HEADER+38 
ATRe crTR) 


ATR+4(PTRI 
HEADER+38, a(SP)+ 


— ss ss 
Aus MIa-t 
Sore uooo 


ne 


a 


7 
TF 1b-se “19 :$3: AX-11 Bliss-32 V4.0-742 
raed 1 ~$007 138% 90:33:07 erruTe saese TF ICE Boost 
INCL PTR 
03 01 «AB nit 34$: BBs #6, SETFILESFLAGS*1, 35% 
01 358: sTB aif ILESFLAGS*1 
oot x we 
00000000" €F 2A a7 $55: CRP gin), OLD_DID_NUM 
00000000" €F 2c a7 CHP g4(R7), OLD_DID_SEQ 
00000000" EF 2€ a7 cP 46(R7), OLD_D1ID_RVN 
0320 CE 39 A? Hi 38$: mOvZBW a5fa7), TEMP_DESC 
FCDC «3s CD 44 «COAT MOVL (R7), TEMP DESC +4 
7E CLRO = = (SP) 
nar puss Tene ce 
000000006 CALLS #4, SYSSASSIGN 
MOVL 
1A BLBS STATUS, 39S 
PUSHL 
000000006 00 1 CALLS #1, SYSSDASSGN 
8 PUSHL STATUS 
018c = CB PUSHAB CONF _DESC 
1 PUSHL # 
000000006. f PUSHL #SETS_OPENDIR 
20 00 6E ei 39S:  MOVCS #0, (SP), #0, #32, TEMP_FIB 
90 CE 0401 BF MOVZWL #1025, TEMP_FIB 
4 CE A av VL 42(R75, TEMP_FIB+4 
08 CE ey, MOVW  46(R7). TEMP7FIB+8 
FCEO CD 00150004 8F MOVL #1376260, TEMP _ATR 
FCES = CD 28 «AB MOVAB UIC_VALUE, TEMP_ATR+4 
FCE D CLRL TEMP _ATR«G 
0320 CE 0 Vi #32, TEMP_DESC 
FCDC §= CD 0300 CE VAB -TEMP_FIB, ~TEMP_DESC+4 
a LRL 0s = (SPY 
FCEO CD S TEMP_ATR 
E CLRQ 0 = (SP 
7E CLRL = (SP) 
FCD8 = CD PUSHAB TEMP _DESC 
E CLRQ = =(SP 
FCFO co PUSHAB 1088 
PUSHL # 
30 AE PUSHL TEMP_CHAN 
7E LRL_ ss 


C 
CALLS #12, SYSS$QI10W 
MO TU 


000000006 4 
38 FCFU i 


408: PUSHL U 
6 PUSHAB | F DESC 


PUSHL #SETS_OPENDIR 


000000006 
CALLS #4, LTBSSTOP 


018¢ 
F 
000000006 00 4 
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1355 
1361. 
1371. 
1374 
1375 
1376 | 
1385. 
1 ! 
1 


1396 


oO 
to) 


3 ee 
SRSARLS 


- 
ww 


F098 


FD98 


FD98 


02 


F064 


FF6C 


50 
cD 


17 


1¢ 


Sr SES 55 


02 


FD98 


55 S$ S& SSSSS S4SSs S$ FS RRR SS 


So& SSS SSCRS 


ary 

98 ADS 

+3 AD46 
FD8C 


0077) 08 aF 


000000006 

1 
FD6C +4 
FD6E g? 
FD70 4 
FF6C 03 

A A 
af 

if 

FDS7 + 
00000000' : 
000000006 : 
009F 
i 


SARNSLLSSLS 


-Sep-1 :53: AX-11 Bliss-32 v4.0-742 
1-00-1964 90:33:6) CLIUTL. SRC seer ice” 832;1 
D 9 41$: PUSS CHAN 
Oi Pe é CALLS i SYSSDASSGN 
p 462%:  MOVL cy UE, HEADER+60 
F PUSHAG ATRI2(PTRI 
MOV 2 a($P)+ 
fl PUSHAG ATREPTR 
P b0cr7 PUSHAG ATROAEPTRI 
ROVAB HEADER*60, a(sP)+ 
43$: BBC #1, SETFILESFLAGS #2, 45$ 
: CMPLV #4. #4, RECATT 
D PUSHL #7803650 
a 36 PUSHAB CONF _DESC 
DD 0049 PUSHL  #SETS$_WRITEERR 
re CALLS rt: LIBS$SIGNAL 
1 A BRB 
AB 44$: 81582 i 
¢ 80 mov? : EEATIRe °° 
3 89 MOV yl oat R1 
C BE ADDL fi8e28 
83 C4 TSTW met 
dé 00ccR fact FB 
E1 OO4CE 45$: BBC 8 al! pe 46$ 
DO 004D MOVL  42¢ 
Ome wae 
Bo Ee sos, TORY SESngALE. frase 
Fi DO4EC =——“(<«i‘éi'C 3 SETFILESFLAGS+1, 47$ 
1 004F1 CMPB HEAD ER+7, 
12 Fg BNEQ 48S 
OF 004F PUS P.ADU 
DD 004F PUSHL #i 
DD PUSHL ’ ET$_NOTODS2 
f ian CALLS f , LTB$SIGNAL 
E 19 48$: BBS #1, SETFILESJFLAGS*1, 49S 
1 BBS Hy SETFILESJFLAGS*+1. 49$ 
\ 1A TSTB  fosweahaze 
1D BGEQ 
oo 00856 SOR, beers 5. Tea ER aeget, 
EF oe a SeTF ILESJ intags, RO 
FO INsv AP #1, HEADER 
E1 51$: BBC aye JFLAGS#1, 528 
tf EXT2V SETFIL ILESJ JELAGSS , RO 
FO és INsv g 0° #1, HEADER+7 
eI 48 52%: BBC : I scraes JFLAG set 548 
F 3p EXTZV : SETF ILESJ FLAGS#I, RO 
FO INSV ; #5. #1, HEADER?7 


Pee Se Se Se Se Se Se Ge Se Se He Se Se Se Se Ge Be Se Se Se Fe Se Bs Se Be Se Se Be Se Ge Se SoBe Se Se Se Be Se Se Se Se Ge Se Be Be Se Be Se Se Se Fe Be Be Se Se Se 


> 1446. 


oe a te 0 4 
ABSA TIAA 


— 
VO4~006 ieect9Re $8:88:8 tetiUtL*SRe Sse tr iue-0ser1 Paseo) 


0c ag 2 I 50 53$: 61882 #2, sitrus ESMFLAGS : 1513. 
5 D¢ MOVL =s #1, : 1514 
s ok % & tgs RE ig pe aH 
F098 SC Of 0 D056F NSV : 7 ; | 
oc ee 00576 1882 #2, 31 
1% = i M087) $58: Boe’ ga iN one AGS. 568 ¢ 1853, 
50 08 AB 01 F OC XTZv #3, ie LESSF FLAGS, RO 3 1529) 
F098 «=D 01 dC NSV RO, % : 
oc 48 0058F BISB2 #2, sete! Lesa 3; 1530) 
5 00 MOVL = #1, ; 13 1) 
ts 08 AB 00596 568 BBC Ay iit AGS. 57$ : 1 3 
50 08 AB 01 F 00 8 EXTZV #5. @ Hirt suFCA AGS. RO : 15 
F098 CD 01 2 FO 005A INSV. RO. : | 
o 8 88 005A8 BISs2 #2, sett! LESH nS > 1538) 
3 DO 005AC MOVL : 1539) 
1 38 at 57$: cMPL STATO 1s. " ; -_ 
9A AD46 f be PUSHAQ ATR+2(PTRI : 1551 
9E 1D b 588 mMOVW = #29 §(sP)¢ : 
98 AD46 7F 00588 PUSHAQ ATREPTR + 1552 
9E 0 80 005BF MOVW #2, a(SP)+ : 
9C ADS6 7F C PUSHAQ ATR+4(PTRI + 1553 
9E FDS D ¢ MOVAB HEADER+72, a@(SP)+ : | 
6 D6 005¢B INCL P + 1554 
03 Oc AB ‘ 7 5 588: BBs a SETFILESMFLAGS, 60$ : og 
F8 C AB " E 05 60$: 8BS TF LESMELAGS 598 F | 
00000000' EF 0£00082 F 8 DA MOVL Le » gRMSIN NLID_ACE : 1568 
0 FD4 D 5 MOVAB iTeM bist on MBLKP KPTR : 1574 
+ 0022000 f h MOVL 43 8 _SSITMBLKPTR) + 3 
0 FCF D 1 MOVAB autre (SS$ITMBLKPTR)+ : 
0 7¢ 6 CLRO CSI TRBLKPT RSs 3 
—E 7C 005F CLRQ 9 =( SP + 1577 
7E D4 A CLRL ~{3p) : 
ECE CD OF O05FC PUSHAB 10SB F 
FD4 cD OF 96 PUSHAB ITER LIST : | 
f D4 CLRL 0s = (SP ; 
DD 006 PUSHL R9 : 
1 DD 006 PUSHL F 
000000006 90 F 50A CALLS i. § SYSSGETDVI ; 
Dd 611 MOVE TUS : 
08 E 614 BLBC erATOS. bis ; 1578 
. DD 00617 PUSHL #1 :1 
000000006 00 | f 619 CALLS fl, SYSSWAITFR ; | 
43 D4 006 2 61$: CLRL -<(SP) > 1582 | 
3 DD 00¢ PUSHL STATUS ; 
E D4 006 6 CLRL isp) : 
00771124 BF DD 006 PUSHL #780317 : 
000000006 F f f CALLS #4, LIBSSIGNAL 3 | 
6 FCFO «OCD OC 635 62$: BLBS 1088, 63$ ; 1583, 
a ps BSA cURL =(SP : 1585 | 
7E FCFO CD 3C 006 HOV WL 1058, -(SP) : | 
E D4 CLRL 5 i3Ph ; 
00771124 8F OD PUSHL #7803172 : | 


A? 
9A AD46 
1F 

98 ADS 
i 

AD4 

F 
; 
9A AD46 
0170 cB 
98 Ape 

5 
9C AD46 
FD2C i 
cB 
6 

F 


? 


-Sep-1 


wSep-i9ee 1:09:07 — EetiutL sae Ssete 


PUSHAQ A ReSteTR 
MOV 


4d 
vw 
~ 

+ 


MOVW #32, a 
PUSHAQ ATR+4(PTRI 
MOVAB 


MOVW #31, a(SP)+ 
AI_JNL_DESC, RO 


PUSHAQ ATREPTRI 

MOVW RO, a(SP)+ 

PUSHAQ ATR+4CPTRI 

MOVAB Al JJNLACE, a(sP)+ 


INCL 

MOVE RO, AI_JNL_A 
MOVB #3. AI~JNL~ACE+1 
MOVW #1536,7AI JNL 


: 


nour’ AP atti BUFFER, RMSJNLID_ACE+4 
MOVL ch7y RMSINLID_AC a - 
MOV) 40(R7) RAS INL DLAC +2 

S RMSJNLID Ac 
CALLS Im 


é RMSJNLID_ACE, a(sP)+ 
692 64$: BBC rh} SETFILESUFLAGS#1 65$ 
ATR+2EPTR 


ACE+2 

Al_JNL_D GAI_JNL_DESC*4, AI_JNL_ACE+4 
65$: BBC ry3 SETFILESJFLAGS* 

ATR+2CPTR 


Sooo mm Som SSSSS RR SSR ER RRS BWISCS 


AFF Pues 


9A AD4 PUSHAQ 
1 MOVW 1, a(SP)+ 
0178 cB MOVZWL AT JN DESC, RO 
4 ADDL2 R 
98 AD46 PUSHAQ ATACPTR] 
5 06€B Vw RO, a(SP 
9C AD46 06€ PUSHAQ ATR+4CPTR} 
FD1 D O6F V AT_JNL_ACE, a(SP)+ 
6 O6F INCL PTR 
F018 06F9 MOVB RO, AT_JNL_AC 
FD19 04 O6Fe MOVB #4. AT~JHL~ACE+1 
FDIA 9609 F 0 0 MOVW #1536,7AT_JNL_ACE+2 
cD 017¢ 1 cB 70A MOVCS AT_JNL_DESC, GAT_JNL_DESC+4, AT_JNL_ACE+4 
09 AB ; O714 668: iste SETFILESJFLAGS+1 
9A AD46 7F 00719 PUSHAQ ATRe2CPTRI 
9 1F 80 71 MOVW #31, a(SP)+ 
F 0180 cB ¢ 7 MOVZWL BIN DESC, RO 
¢ 07 ADDL2 #47 R 
98 AD46 F 007 PUSHAQ ATACPTR 
9E 50 B80 007 mOVW RO, a(SP)+ 
9¢ AD46 7F O07OF PUSHAQ ATR+4(PTR) 
9€ FD04 «= CD 7 MOV BI_JNL_ACE, a(SP)+ 
7 INCL PTR 
CD 7 MOVB RO, BI_JNL_A 
ra) 7 MOVB #2, BITJNL~ACE+1 
CD 06 f 744 MOVW #1536,°BI1 JNL ACE+2 
DB 1 CB 7 movc3) BI INL DESC, SBI _JNL_DESC+4, BI_JNL_ACE+4 
AD 755 67$: CLRL FIB+4 


7 
TF 6-§ sep- AX-11 Bliss-32 v4.0- 
$bueO08 g: Sep- 198 99: 38; 3} CLIUTL.SRCISETFILE.B 
98 AD46 758 PUSHAG ATRIPTRI 
7 CLR a(SP)+ 
7 TSTL PTR 
A 7 BNEO 6 3 
02 AB 7 BBS , SETFILESF LAGS+2, 8s 
AB 7 BBC + SEIPILESFLAGS* 1$ 
6E ; 6 f ¢ 68$: mOvCcs ; * (SP), # RES_DESC 
FCE8 CD O660 SF 77% MOV #512 RES_DESC 
FCEC §= CD ce , ROVAB s,6ur. RES_DESC+4 
98 AD 7 PUSHAB ath 
FCE CD 787 PUSHAB RES_DESC 
AE 7 SHAB RES-LEN 
7E 7 CLRL 0 =< SP) 
90 AD 7 PUSHAB DESC 
7E 79 CLRQ = =( SP) 
FCFO CD 79 PUSHAB 1088 
é 799 PUSHL #54 
798 PUSHL R9 
E 79D CLRL. = (SP) 
000000006 90 79F CALLS #12, SYS$QI10W 
7 MOVL RO, STATUS 
9 7A BLBC STATUS, 69$ 
FCFO cp 7AC MOVZWL 10SB, STATUS 
1 7B1 BLBS STATUS, 708 
9500 F 7B4 69$: PUSHR #*M<RB.R1 
000000006 8F 7B8 PUSHL ‘ ET$_WRITEERR 
00000000v EF 03 re CALLS FILE_ERROR 
13 01 04 7€7 70$: C #4, SETEILESFLAGS*1, 71$ 
018¢ cB aC PUSHAB CONF _DESC 
000000006 &F 7D PUSHL #SETS_MODIFIED 
000000006 00 3 7D CALLS #3, LIBSSIGNAL 
E 70F 71$: CLRO -<§P) 
7E 7E1 CLRQ = =( SP) 
7E rE CLRL = = (SP) 
90 AD 7E PUSHAB DESC 
7E 7E8 CLRQ. ss =( SP) 
FCFO CD 7EA PUSHAB 1088 
4 7E PUSHL @# 
9 7F PUSHL R9 
E 7F CLRL. = (SP) 
000000006 00 ; 7F CALLS #12, SYS$Q10W 
08 0 AB 776 72%: 6BS #5, SETFILESFLA AGs+2. 738 
AB a 4 BBs #4 SETFILESFLA 
FFSA CD ZA rf 73$:  MOVL 42(R7), FIB+10 
FFE CD — Az MOVW  46(R7). FIB+14 
03 02 AB o0e? if BBS é { SETFILESFLAGS*2, 74$ 
1A A 1C 74$:  BLBS g (R7), 75$ 
15 34 «OA? 95 S 4 3287). 75$ 
00771204 F PUSHL #7803402 
018¢ cB B PUSHAB CONF _DESC 
1 F PUSHL @# 


Pe Se Se Se Ge Se se Se Se Se Se Se See Se Se Se Se Se Se Se Se Se Se Be Fe Ge Se Fe Se Se Se Se Se Se Fe Se Se Ge Ge Se Se Se Ge Ge Ge Ge Se Se Ge Se Ge Se Se Se Ge Se 


59 


0138 CB 


000000006 " 
50 03 
ee 018¢ 
00000000' 


MMNIN—NINOOC MOLT eoucuxcesuSeuyvemacs® 


8F 5 
1 
5 
018¢ 
0 000000006 : 
a 
FFS4 «6 C 
0 FF58 
Bey 
3D OA 
Pe 
4 
013 cB 
Be 
7€ 
FCFO 0 
7 2c AE 
a 
3 FCFO 
11 
0138 


000000006 _ BF 
0289 
AB 


018¢ 6 
000000006 8F 


if 


om~"ooo°o coon andindine > ine eantean tao 


RWW HMMM MMOOOVIMOOOOOoWOIO> > SF OOOO RBOOOoyys 


98¢ 18:08:07 HeCiUtSsneSse te ee cases 


gsers. REMERR 


; aN SEIFILESELAGS, P98 
CONF “DESC, (SP) * 


a. LIBSCONFIRM_ACT 
RO, STAT 
STATUS, 79$ 
TATUS. #LIB$_QUIPRO 
TATUS, #LIBS$_QUICONACT 
#1, SETFILESFLAGS+3 
1° STATUS 


siatus. #LIBS_NEGANS 


STATUS 
CONF _DESC 


#SETS_WRITEERR 
BSSIGNAL 
TATUS, 82$ 


R— 1O™M! I NDODOUI "222 
UO aM AH ONO — eon 


CHANNEL , ~(SP) 


STAT 

fNY LE UNANE 

#SETS_URITEERR 

#4, SETFILESFLAGS*+1, 82% 
F_DESC 


#SETS_REMOVED 


Cee See aw 


Page $5 
= is -32 V4.0-742 ( ) 
~3eb-13be $Sibasoy Leet SARE fete casos | 
=3een}3 4 : : : 75 | 
L18$S1GNAL ¢ 1750) 
9 CALLS oat SAMS PTR : 182 | 
000000006 00 0248 it ai ges: oeucs #0, (SP), #0, #80, ° 
0 TR ; 
; " ee a RHE : 
0050 ce OS . 355 Move. #5. SRNS“PTRS : 
Fe OE § MOVAB NEW_NAM “SRNS-PTRe : 
eet oe Say tt tres 
cE OSA co e R ‘ 
of ab c s +) MOVES POC TSP). WO” 996, SRAS_PTR ; 
0060 8F i ce 6008 br Be 326 RNEGR #1. NAR EXP SAMS PTR+12 cod 
A CE 95 VLR, “SRMS_PTRe : 1839 
Cc CE) O08 BH 0O5e mo #3, 52(R7), B48 : 1839 
a cE i £1 0096, BOVAB OP Apy, NEW FAR*4E : 1830 
10 #6 f£ ooo00000" FF 09 MOVB #2, NEW_ : 1844 
o3i9 cE 6 0978 BRB 3 1845 
0315 CE & 3) o09%0 as: CURL NEU Fageag ; 1851 
TS em oe : 
000000006 99 50 00 099 ROves. #96, NEW_NAM, rot ; 185 
0220 CE 0260 CE O60 cf er $5 CALLS ane eee 186 | 
F62C rf 2 E8 009A om STATUS E : 
58 bo QO9AB PUSHAB A ey: : 
Brae fe OSE Sopa: PUSHAB CONF_DES ; 
a a ee 7) 
000000006 : +4 00960 CALL ae 
000000006 00 0288 Sf dosce 868: MOVCS RO. (SP), #0, #80, SRNS. : 
6E te oosee 483, SRMS_PTR ; 
d fn fe Ogt 0901 sg S32 Ts SRMS_PTR+4 ; 
0050 8 geo ce SONS 60 00908 = ave i. seme Bf 
of Oe 945 MOVE, #2" SRMS-PTROST 
O56 CE g 90 009E6 MOVAB NEW_NAM SAMS MS PTR+44 : 
FF CE 9E 009E MEU LNANSSI¢> EAMG _FTReGs : 1876 
0308 CE pea 06 O3t MOVE. ON Una sT9GT SRMS-PTR : 
Ose te oft Hi mOVCS #0, (SP), #0, #96, ; 
00 oh: bE 8 c et Sag? MOVW #24578, sans te ; 
“6 e602 br 2 yA ROVAB NEW_NAMEXPS, SRMS_PTRe12 : 
0280 CE 1 BE O0a11 A er ET ; 1878 
SH oO" BB | Bee Bae : 
8 0 CE 02€0 a oF yea en ai.” SHSSPARsE > 1879. 
000000006 98 i 00 A ¢ MOVES ; b NEU NAM, NEW_NAM2 ; 1880, 
0280 CE = 0060 BF es Age CALLS” #1, "PARSE _NULL_STRING 
0220 CE . eo OT Fe thee CALL , 
F592 


Page §6 
=32 V4.0-742 (9) 
8 Chiure SRE ase fF ICE B58. 
. 3335: ~SRCISETF ‘ 
VESIIMHE O85) RE it 
‘eres gM, uta lo 
SET E8 OOA SHL § : 
we “op PER | BAM : 
138 F OOAGB ; 
PUSHL RR 
bie 2 9b OOAKt CALLS #3, LIBSSIGNAL $1895 
000006 BF DD O0AdI CALLS # 48 
000006 00 019F A + Revel teu eet NEW_NAME + : 
Me RS Re Bh EE: & 05 
so i ef 9A QOA74 ADDL 0 +61, R2 : 
at SF W_NAM2 1904 
g £0 OOA ROVE NEU WANZ 61. RZ : 190 
025D A OOA7C Not” (REG Ramon eo eG DESC +4 : 19¢ 
g5 Al past MOVL a $43. F161 : 191 
we ee ane A oz6c CE 00 ONE a Be +46, F1B+14 ; 131 
FFSA CD 3a C a9 MOVZBL 20( hai2"20, RO NAM2+21 Mes 
FFSE 5 vert 4" gh ROAge CMPCS” RIS DICR?I~ WO. RO, NEW. : : 
as Soe ; ; 1920) 
2? OA 88$ ; 
50 “ sane 09 3 ODA PUSHL Hla AGS+3, 93$ : 193 
o0o1g4c4 | BF ot OARS wee a, SETFILESFLAGS: $3$ : 1939 
oar SR Ble Fett j teat 
6A 68 E OOAC MOVAB NEW , : | 
66 — ie @ 8 me HAB ARGCIST : | 
eA eo RE OF Ounce PUSHAB P APT IBSCONFIRM_ACT 2 1943 | 
O° EF 9F OOADI CALLS e, TU : 1946 | 
nse 3 a Oar CHPL STATUS; #L18$_QUIPRO : 1947 | 
44 58 D1 OOAES BNEG TFILESFLAGS+2 : 1948. 
bt 12 OOAEB B2 #64, SE : | 
im ae AB ” i i QOAF? i, ery iitus, #LIBS_QUICONACT 2 1949. 
01 : FS 90$: : 
58 D1 OOA BNEQ TFILESFLAGS+3 : | 
000000006 8F 08 ig Are pices ib STATUS ; 1950 
oy ts ed Stfrus, a.1es_vecons 1951 
918: 2s : 
; 08 3 a, a 
mela pels PUSH Pee ease] GHAL : 18e6 
000000006 BF re Oat gos. gat STArus. 388 
000000006 99 38 ? boese ose: So Peet 
cE Or Biage —URHAB. ey esc | 
0238 f op evan -(SP) 
C 008 SHAB 10SB 
7E 3 PU 
FCFO «CD OOF 


bt ea a ae ee ee ee aol 


d 8 
TF 16-Sep-1984 00:53: AX-11 Bliss-32 V4.0-742 P ? 
ob. ae aets Pak et ct he hg PL eS age) 
33 pd 00839 PUSHL #51 ; 
7E 2c AE be : : mOV ZL CHANNEL, -(SP) : 
000000006 FB 00B41 CALLS nid, SYS$Q10W : 
D0 00848 MOVL RO STATUS : 
: B48 BLBC STATUS, 94$ : 1967 
FCFO f Bd MOV7wi 10SB, STATUS : 
18 £8 008 BLBS STATUS, : 1968 
D 00B é 948: PUSHL STAT : 19 
FCE8 CD 9F 00858 95$:  PUSHAB NEW NAME + 1969 
018C¢ : F 008 PUSHAB CONF_DESC : 
900000006 SF bp doB PUSH -RSETS. ENTERR : 
000000006 00 05 FB 08 CALLS #5, LIBSSIGNAL : 

17 01 04 gI OBy1 968: BBC #4, SETFILESFLAGS*+1, 98S + 1975 
FCES CD SF 00B76 PUSHAB : 1976 
018¢ cB 9F OOB7A PUSHAB CONF_DESC : 

000000006 a BO bone PUSH #SETS_ENTERED : 
000000006 00 4 FB 00B86 97$: CALLS #4, LIBSSIGNAL : | 
24 02 AB 92 £1 00B8D 98$: BBC #2. SETFILESFLAGS*2, 99% : 1983 
A DD 00892 PUSHL R > 1985 
00000000v ef 01 FB 00B94 CALLS #1, UNLOCK_ACTION : 
8 50 DO 00898 MOVL RO. STATUS : 
15 38 E8 OOB9E . BLBS STATUS, 99% ; 
DD OOBAI PUSHL STATUS : 1987 
018¢ CB OF OOBA PUSHAB CONF_DESC ; 
gi DD OOBA PUSHL #1 : 
000000006 8F DD OOBA9 PUSHL #SETS$_UNLOCKERR : 
000000006 00 04 FB OOBAF CALLS #4, LIBSSIGNAL : 
24 02 AB E9 00BB6 99$:  BLBC SETFILESFLAGS*2, 1008 : 1992. 
5A DD OOBBA PUSHL R10 : 1994 
00000000v ef or FB 00BB CALLS #1, SETPRO_ACTION : 
: 0 pO 00BC MOVL RO. STATUS ; 
1 58 £8 00BC6 BLBS STATUS, 100$ : 
58 bp 0BC9 PUSHL STATUS : 1996 
018c CB OOF O0BCB PUSHAB CONF_DESC ; 
oi DD OOBCF PUSHL #1 : 
000000006 8F DD 00801 PUSHL #SET$_PROERR ; 
000000006 9 04 FB 00807 CALLS #4, LIBSSIGNAL 3 
E 04 AE 3C OOBDE 100$: MOVZWL CHANNEL, -(SP) : 2002. 
000000006 90 1 FB OOBE CALLS #1, SYS$DASSGN : | 
: D OBE VL RO. STA : 
1 £8 OOBEC BLBS STATUS. 23 : 
0500 &F 6B BEF PUSHR #*M<RB_R10 > 2003 
000000006 8F DD F3 PUSHL #SET$ CLOSEERR F 
00000000v EF 03 FB oer 101$: CALLS #3, FTL : 
0 1 p C00 102$: MOVL #1. R : 2005 | 
4 00C RET : 2006 | 


; Routine Size: 3076 bytes, Routine Base: S$CODE$S + 0693 


rEeseo-t9Re 00:55:51 yauctt aL iagc3 


AL ROUTINE file error (status1,status2,fab) = 


——) 2 
2 
o- *3 


nis routine is called if an error occured while trying 9 access 
e 


cal 
le. The kind of error is signalled, along with the file name. 


1 
1 
1 
1 
_, 
BEGIN 
MAP 
fab : REF SBBLOCK; ! Define the fab 
BIND 
status = status2 : LOCK 
nam = .fablfab$Si_nam) : SBBLOCK; ! Define the name block 


te Pt tb 


LOCAL 
desc : VECTOR(2); ! A temporary descriptor 


MFWwN— NAV EWN OOO~O 


Check to see if there's a name in the resultant string field. 
If there is, use it. 


F_.nami.nam$b_rsl] NEQ 0 
EN 


atencacacace 
= 


WN —O DONO WO CONOUSE 


-nam(nam$b_rslj; 
-naminam$\_rsaj; 


uw 


RERERERRR RGR amma 
rc) 


w 


If no resultant name, try the expanded name 
ELSE IF .namC{nam$b_esl) NEQ 0 
THEN 


BEGIN 
gesc tO} = .nam[nam$b_es1); 
desc! 

END 


MAMAN 
GSW OOONOURWN OD 


= .naminam$l_esaJ; 


If no expanded name, use the original name in the fab 


OSO90000 
SRRREEES FP Pscsonmcnmvnnnatennororoke 


ww 
oo 


SS 


ae 


gosch? = .fab(fab$b_fns); 
gese 1] = .fablfab$l_fnal; 


PAA 


COOCooooooo 


' 
! Signal the error 
SIGNAL (.status!, 


desc, 
Status); 


SEESES 


Report error 

One FAO argument 

Which is the file name 
Plus original error 


ts 


Be Se Se Se Se Se Fs Se Se Se Se Se Ge Ge Se Se Se Ge Ge Ge Se Ge Ge Se Se Fe Se Ge Ge Ge Ge Ge Se Ge Se FH Se Ge Ge Se Se Se Se Ge Se Se Se Se Ge Se Se Se Se Se Oe Se oe 


WN —OOOBNO NEW 0 ONO UE WO 0 


SEES 


~~ 
mo 


tr 


ILE.632;1 


Pane 18} 


ow 


t 8 
S5eLbbs 1e-8Sb=198e 99:85:87 | Heer eshessee tee 3S? Pose $3 


; Soh goes f Eno ‘¥*? 


; Routine Size: 76 bytes, Routine Base: S$CODE$S + 1297 


; 2075 2066 1 


sENTRY FILE ERROR, Save nothin ; 2007 
Ro oo Rae RP Aas at 
0 2 h MOVE © 40(R1), RO : 
AO TST (RO) : 2031 
0 1 BEQ $ 3 
6E 3 AO 9A 0001 MOVZBL 3(RO), DESC : 20 
06 AE A 99 1 MOVL 4(RO), DESC+4 z 2035 
1 18 BRB 3$ : 2031 
0B a0 3 1D 1$ TSTB 17(RO) : 2041 
1 0 BEQL ¢ : 
6E oe AQ 9A 000 MOVZBL 4(R8) DESC : 2044 
04 AE C AO 00 00026 MOVL fecR », DESC+4 : 2045 
09 11 00028 BRB H : 2041 
6E 4 Al 9A 4 D 2$ MOVZBL 52(R1), DESC : 2053 
046 AE € Al 00 00031 MOVL 44(R1), DESC+4 : 2054 
8 AC DD 00036 3$ PUSHL STATUS : 2063 
AE 9F 00039 PUSH DESC ; 2060 
01 dD 00035C PUSHL #1 : 
04 AC 0D 000 PUSHL STATUS1 3 
000000006 98 04 FB 00041 CALLS #4, LIBSSIGNAL : 
0 01 DO 00048 MOVL #1, RO : 2064 
04 00048 RET ; 2065 


a 
1$-sep-1964 00:58:51 yanett BList= 32, 40-742 Page 70 


3 7 } GLOBAL ROUTINE check_privilege : NOVALUE = 
; 1 i 
3 u : : This routine checks that the image has the correct privilege. 
: i 1 inne 
; 7 BEGIN 
3 74 
; 75 LOCAL 
; 6 status, 
3 a) oldpriv : SBBLOCK(8); ! Permanent privileges go here 
3 080 newpriv : rst $7] oe ! Mask to disable SYSPRV 
3 081 PRESET (Corv$v_sysprvJ=true); 
3 O36 oes 
3; 209 08 : 
3; 2094 084 ! The image SET is installed with SYSPRV privilege, but we don't want the user 
; 2095 085 ! to have that much power unless s/he olreody has it. So, first check to 
3 04 | Bee ! see if the process has the privilege, and if not, then remove it for the 
; 944 et : duration of this image. 
; 2099 P 2089 If NOT (status = SSETPRV(ENBFLG = 1, ! Enable 
: 2100 P 2090 PRVADR = 0, ! No new privileges 
3; 2101 P 2091 PRMFLG = 1 ! Permanent privs 
r} 106 09 PRVPRV = oldpriv)) ! Store current ones here 
; ts 9 THEN SIGNAL_STOP(.status); 
3; 2105 095 ! Check to see if privilege there. If not, then remove it from current 
3 108 B98 ! privileges. 
3; 210 09 } 
3; 2108 098 If NOT .oldpriv(prv$v_sysprv] ! If SYSPRV not permanent 
3: 2109 099 THEN 
3 2110 100 BEGIN 
3 2111 P 2101 4 IF NOT (status = SSETPRV(ENBFLG = 0, ! Disable 
3 Ng e 4 4 PRVADR = newpriv, ! this ptuston 
3 211 P 2103 4 PRMFLG = ! for the duration of this image 
3 2114 104 4 PRVPRV = 05) 
3 2115 105 THEN SIGNAL_STOP(.status) 
; 138 198 END; 
3: 211 10 
3; 2118 108 RETURN; 
3 2119 109 END; 

-PSECT S$OWNS,NOEXE,2 

002A -BLKB 3 
one 002C NEWPRIV: .BYTE (3) 3 
1 002F -BYTE 16 : 
00 -BLK 


-PSECT SCODES,NOWRT,2 


3; Routine Size: 


4H 8 
16-Sep-1 AXe11 Bliss -32 v4.0-7462 Pp 71 
1 ~300- 138% 99: 38: 3 fetiun SRC} SETFILE.832;1 090 44) 
001 ENTRY gn K PRIVILESE. Save R2,R3,R4 : 7 
990000006 MOV STSSSETERY : ope 
MOV : 
5 Bush i: ad : 2092 
f pp PUSHL : 
7 1 mOVa #1, =(SP) : 
F CALLS #4, SYSSSETPRV : 
é D MOVL RO, STAT : 
E BLBS STATUS, ; 
DD PUSHL STATUS 3 2093 
63 FB CALLS #1, LIBSSTOP : 
18 03 AE : BBS #6 pQLDPRIVeS, 2s 3 2098 
— 7C CLRQ ss = SP) : 2104 
00000000° cF 9 PUSHAB NEWPRIV : 
$4 F CALLS #4, SYS$SETPRV : 
é D MOVL RO. STA Tys ; 
. BD Bt eH sane’ : 2105. 
63 07 FB CALLS 1, LIBSSTOP : 
04 RET > 2109) 


70 bytes, Routine Base: S$CODES + 12€3 


en 


Se aaa eee Wh iar 
ifoseoct9ge 00:55:51 yancty OLig32, v4 0-742, 


3% 
Sr 


} GLOBAL ROUTINE search error (fab) = 
1 i 
1 : This routine is called when Lib$file_scan det hi 
: H searching for a file speci tied in the comnand Line - — — 
5 1 lee 
: BEGIN 
13 
1 fab : REF SBBLOCK; ! Define FAB format 
5 } BIND 
¢ ; nam = .fab(fabSi_nam] : SBBLOCK; ! Define NAM block 
5 
$ desc : VECTOR(2); ! A temporary descriptor 


1 

: Fbeck to see if there's a name in the resultant string field. 
If there is, use it. 

IF 


SS aaeee NEQ 0 
og 


ernre 


wn—o 


get = ,nam(nam$b_ ae 
desc(1] = .nam[nam$i_rsa 


' 
If no resultant name, try the expanded name 
rhe! IF .namC(nam$b_esl] NEQ 0 


a = .nam(nam$b_esl]; 
desc(1] = .nam(nam$l_esa : 


' 
: If no expanded name, use the original name in the fab 


ELSE 


gc = .fablfab$b_fns); 
desc(1] = .fablfab$i"fna); 


Signal the error 


SIGNAL _STOP(set$_searchfail, 
es One FAO argument 

Which is the file name 

Show RMS ier code 

And secondary error code 


des 
“fab fab$l “3154 

- fabl fab$l"stvJ5; 
RETURN true; 


Be Se Se Se Se Fe Ge Oe Ge Oe Se Oe Se Ge Se Ge Se Fe Se Ge Ge Ge Se Ge Se Se Ge Ge Ge Se Ge Se Se Se Se Se Se Ge Se Ge Se Se Ge Se Ge Ge Se He Se Ge Se Ge Ge Se Ss Ge os 


a aaa ke ek ek a kd ed ed id td sd wd dd td 


VSARANVSSSELFSTFERIS SSVSALUNASSSLEGE 


ee a ed od dd 8d od 8d wd dd od od 
SOS SP Ce IESE SSS 
MEW 0 OOWO VUE WO ONO UE WN 0 0 MPwn— 
f LALLA EPPA ANNI EAPO PUIPIPIPIPUPIPIPIPIPIPIPIPUNY 2? ts es 


2167 1 END; 


000000006 


; Routine Size: 80 bytes, 


Routine Base: 


22 Sue 


Cozer>==SEzseszezss=zs 


a8 & 


i 


0077123A 


18 so 
1e-Sep-1 


—DOI9O0 


SCODES + 1329 


=| 


Bbc $Sida:0 | eeeTat Oke see ite e525 


#7803450 
#5, LIBSSTOP 
#1, RO 


AOuwl & w 
TRAPS OVER 


mr 
—— 
et 


1Eeseo-1964 00:55:51 yanctt BL ing=s2, v4 


IN 
IF .setfile$flagsCqual_quit_unlock] 

OR NOT .setfile ests gslquel. confirm) 
ee true 


} } ROUTINE unlock action (fab) = 
1 1 leoce 
1 1 ; 
} ; : Functional description 
1 1 i This routine is called from SET_ATTRIBUTES whenever 
} : } a successsful file match for /LOCK occurs 
i ' Input parameters 
1 i fab = Address of block describing the file 
19 1 i Qutput parameters 
194 1 1 | oe 
136 1 : None 
1 1 : 
i 8 be 
199 ; BEGIN 
1 ; MAP fab: REF SBBLOCK; ! Define fab block format 
: 138 LOCAL status; ' Receives status 
19 ’ 
194 ! If /CONFIRM was pet aA. she user then interrogate him to see if 
195 ! this file is to be unloc 
199 
12 
199 
i 


BEGIN 

status = LibSconfirm_act(ZASCID ‘Unlock file !AS? (N) : °, 
ZREF (conf _desc)); 

if wor status 


NREGIN 
IF .status Ft Libs quipro 
THEN (setfi tlogsCaus! quit] = 1; RETURN true) 


PUA AAAI ES BB SUI IO IIT ES. BS BE ES AAAI PIPINMIPIPINIPIIIIAY 0 tt tt tt 
_——- o~ -- . . 

man 

a 


FALUN SSSSLEGRAN LS Sars nRrav=sseVEn 
RUN SOONS NR WOONONA 


1 

1 tus uiconac 

1 att W (nef ted apscauat “a quit mon = 1; status = 1) 
1 ELSE .status negans 

: TH HEN SIGNAL (set$_writeer?, conf_desc, .status); 

1 status 

1 END 

1 END 

1 THEN 

: BEGIN 


“esas 


Page 8 


Kg: th Qe ee eRe aw Baan ke 


1$-se0-1984 00:55:51 yanett BL ing=32_v4.0-742 


ax 
Sr 


3 5 

: $ if NOT (status = LibSunlock_file(conf_desc)) ! Call unlock with file name 
3 r RETURN(. status); 

: 226 ' 

; 224 ! Check to see if unlock worked. SSS_WASSET indicates the file 

; ! was unlocked. SSS_WASCLR indicates the file was already unlocked 
; 45 : and no other error occurred 

; rs] 5 3 

: v1 if (.status EQL SS$_WASCLR) ! If file not locked 

: SIGNAL (set$_notlocked,1,conf_desc) 

; ' File was unlocked 
3 § 4 Hy fei ou tose cate log) iif /LOG tell user 

; ? . N SIGNAL (set$_unlocked,1,conf_desc); 

; 5 rk aca ! Both returns above 
3 46 ! are ok! 

3 45 

3 8 46 END; 


LPSECT SPLITS, NOWRT ,NOEXE,2 
53 41 21 20 65 6C 69 G6 20 GB GS GF GC GE $5 OOLSEP.AEC: ASCII Wnlock file !AS? (NJ : \<0> 
$98 gf 88 OS SE 8S 2, Bi 0 eine Po : 
0° 0 


5 

06970 

0470 P.AEB: .LONG 17694743 
74 -ADDRESS P.AEC 


.PSECT SCODES.NOWRT,2 
001¢ 00000 UNLOCK_ACTION: 
WORD 


& 000000006 00 9€ Hevem  tabastehae ns 
33 tittittdh F 9 itd MOV SETFILESFLAGS, R3 
4 C 001 SUBL #4, SP 
SE 03 is £0 0001 S a3. SETFILESFLAGS+3, 4$ 
ba 6 1 0001 C #3. SETFILESFLAGS, 4$ 
6E 018¢ E IC V CONF_DESC, ( 
E oD PUSHL SP 
00000000 EF 9F SHAB  P.AEB 
000000006 F CALLS #3, LI LIBSCONFIRM_ ACT 
D VL RO, STA Us 
4 E BLBS STATUS, 
000000006 &F ; cnPL STATUS, a 18s _QUIPRO 
02 a3 40 = «BF as Hi B1SB2 Hes, SETFILESFLAGS*#2 
000000006 8F é D1 46 1$: cHPL STATUS, #L1B$_QUICONACT 
02 A 80 8F es AF BISB2 #128, SETFILESFLAGS+2 
5 1 0 54 MOVL #1, STATUS 


75 
(13) 


8 
-Sep- : AX-11 Bliss-32 V4.0-742 © 6 
ae aets ae tt apt be hg Ps Pe eke age 8S 
A 11 RB 3$ 3 
000000006 &8F pt 28: CHL STATUS, #L18$_NEGANS + 2213 
pb SHL_ STATUS : 2214 
018¢ F PUSHAB CONF _DESC ; | 
DD PUSHL  # ; 
000000006 f Dp PUSH sSETS WRI TEERR : | 
Rome BRB: Be ie : Be 
000000006 1 F a CALLS #1, CIBSUNLOCK_FILE : 
D MOV RO, STAT : 
: BLB STATUS, ; 
0 BO MOVL STATUS, RO ; 2228, 
01 52 D1 5$: CMPL STATUS, #1 : 2236 | 
0 2 33 BNEQ 3 
018¢ OF PUSHAS CONF _DESC : 2238) 
DD 00094 PUSHL #1 : 
000000006 $F pp 96 PUSHL —#SETS_NOTLOCKED : | 
OF 01 04 €1 6$: BBC #4, SETFILESFLAGS+1, 8S : 3240, 
018C C3 9F OOOA BUSHAB CONF _DESC + 2261. 
1 DD 000A SHL #1 ; | 
000000006 8F DD 000A9 PUSHL SETS UNLOCKED ; 
3 FB OOOAF 7$ CALLS #3, LTBSSIGNAL : 
0 1 DO 00082 8$ MOVL «61. Re : 2243 
04 0008 RET : 2246, 


; Routine Size: 182 bytes, 


Routine Base: S$CODE$S + 1379 


& 
Wwr—OoOon~ 


FENRIS See aE 


FKP MA UNNE & 6 FF WWMAIIIAININPIAINININI PIPPI PIPININIPID 9 8 9 9 OS SS 


o 
w 


6? 
68 
9 


iEeseo-1966 90:85:51 yanctt 


ROUTINE setpro_action (fab): = 


Functional description 


This routine is called Nb SET_ATTRIBUTES whenever 
ECTI s found 


the qualifier PROTECTION 
Input parameters 


fab = Address of block describing the file 
fab$l_nam = pointer to name bloc 


Output parameters 
First error encountered, or TRUE is RETURNed 


BEGIN 

MAP fab: REF SBBLOCK; ! Define fab block format 

LOCAL 
p_res_mask, ! Enable-mask parameter 
pP_res_prot, ! Value-mask parameter 
final-prot: WORD ! Receives final protection 
desc: VECTORE2), i Temporary string descriptor 
status; ! Receives status 

: 

! If /CONFIRM was set by the user then interrogate him to see if 

: this file is to have its protection changed. 

if 

BEGIN 


IF .setfile$flagsCqual_quit_protect] 
OR NOT .setfile$flagsCqual_confirm] 
THEN true 


Oi legeat v4 
L.SRCJSETFILE 


EGIN 
status = iibSconfirm_ect (545610 "Change gretection of file !AS? (N) : ‘, 


REF (conf _desc) 
ae Status 


BEGIN 

IF .status Fey Libs_qui 
THEN (setfile 
ELSE IF .stat 


IF 
THE 


Lib$-quiconac 


ro 
tlagsCaual quit] = 1; RETURN true) 
s EQL 


THEN (setfile flagsCauat quit nod = 1; status = 1) 
NEQ Libs 


ELSE IF .status ne 


ans 
THEN SIGNAL (set$_writeert, ? conf_desc, .status); 


0-74 
"85801 


—————_——— 


9 
1$-sep-1964 00:53:51 Yanai? BLing=S2, v4. 0-742 


an 
g 


END 

THEN 

BEGIN 

! Compute the parameters for Lib$set_file_prot. If not protection 


! value was specified set enable-maSk and value-mask to zero to 
! cause protection to be set to the process default. 


—> D+ 


ViEUN—OOONOUES WOOO 


p.res_mask = global_mask; 
P.res_prot = global _prot; 


IF pipcvet peck EQL 0 ! If not presecstes values specified 
THEN p_res_mask = p_res_prot = 0; ! pass null parameters 


' 
: Call LibSset_file_prot to set file protection 


IF NOT (status = steseet, “vie prot ( “* Library routine with 


! 
conf_desc, : ile name 
-P res_mask, ' = result mask 
-P_res_prot ! = result protection 
tinal_prot)s i = final protection returned 
: by LibSset_file_prot 
THEN 
BEGIN 
SIGNAL ( ' Tell the user of error 
set$_pronotchg, ! = ‘'Not changed’’ error message 
1 - 1 FAO arguement 


-Status); - original error 
return (.status); ! Return to the caller 


1 

' 

» ! 
conf_desc, - descriptor of filename 

i 


! 
If /LOG was set then do it 


IF (.setfile$flagsCqual_log]) | : of Logging requested 
THEN prot_log_results (.fab,.final_prot); : then call the logger 


WN "0 OO NOUVE WN “OO OONOUES WO 0W 


END; 
RETURN (true); 
END; 


DEBE EEE EE & FAWN NII RIPPIN 2 2 2 


SOONG VE WN $$ O OONOAMNEWN OO DNAUE WN "OOOO VEW 0 0@ 


PURINE WWIII BBB BB BUD BE BB PAI I III II AIO 


-PSECT SPLITS,NOWRT,NOEXE,2 
He P.AEE: .ASCII \Change protection of file !AS? [NJ] : \<0> 


ASCII <0><0e 
O4A0 P.AED: .LONG 17694757 


VUERRSERRSEE REE 
$6 $f A 38 $b 4E : : 
010E00 3 


Saar ae aa eo 
1$-sep-1964 00:58:51 yaKott BL is9-52. v4. 0-742. 


00000000" 004A4 «ADDRESS P.AEE 


.PSECT $CODES,NOWRT,2 
001C 00000 SETPRO_ACTION: 
WORD 


4 000000006 00 9€ 000 Hoes SaBSsTeMAt ns 
33 titted FF 9 09 MOV SETFILESFLAGS, R3 
C2 0001 SUBL2 #16, SP 
5E 03 A 9 or BBS ae. SETFILESFLAGS+3, 4$ 
A a 1 BBC #3. SETFILESFLAGS, 4$ 
6E 018¢ g E 0016 MOV CONF_DESC, (SP) 
E po 0021 PUSHL SP 
00000000" EF 9F 00023 PUSHAB P.AED 
000000006 9 FB 00029 CALLS “2, LIBSCONFIRM_ACT 
DO 000 MOVL RO, STATUS 
4 E8 000 BLBS STATUS, 4$ 
000000006 8F D1 000 CMPL STATUS, #LIB$_QUIPRO 
iF 003D BNEQ '1$ 
02 a3 40 8F 88 0003F BISB2 #64, SETFILESFLAGS+2 
F 11 00044 BRB 7$ 
000000006 8F 52 D1 00046 1$: CMPL STATUS, #L1B$_QUICONACT 
OA iF 004D BNE 
02 A3 80 8F 88 0004F BISB2 #128, SETFILESFLAGS+2 
52 01 D0 00054 MOVL #1, STATUS 
1A (11 90047 BRB 
000000006 8F 52 D1 00059 2s: CMPL STATUS, #LIBS_NEGANS 
11 13 9060 BEQL $ 
58 Dd 0006 PUSHL STATUS 
018C 46C3 «(OF 00064 PUSHAB CONF _DESC 
01 DD 00068 PUSHL #1 
000000006 8F DD “006A PUSHL #SETS$_WRITEERR 
64 04 FB U007 CALLS #4, LIBSSIGNAL 
4F 5 34 00073 3$: BLBC STATUS, 
51 16 A3 SE 00076 4S: MOVAB GLOBAL/MASK, P_RES_MASK 
50 14 A3 SE OOO7A MOVAB GLOBAL“PROT. P~RES-PROT 
16 A3 BS O007E TSTW OBAL “MASK 
02 1 0081 BNEQ 
7€ 000 3 CLRQ  —— P_RES_PROT 
04 Ar 9F 00085 5$ PUSHAB FINAL~PROT 
sp ee am 
018c |= C3 oF $0 C PUSHAB CONF _DESC 
000000006 99 04 F 9090 CALLS #4, CIBSSET_FILE_PROT 
‘ 3 D 009 VL = RO, STATUS 
1 E8 OOO9A LBS STATUS, 6$ 
5 BD 0090 PUSHL STAT 
018¢ F 0009F PUSHAB CONF _DESC 
1 oD OOA3 PUSHL #1 
000000006 F DD A PUSHL #SET$_PRONOTCHG 
64 04 FB OOAB CALLS #4, LYBSSIGNAL 
0 2 b 9 AE MOVL STATUS, R 
4 0008 RET 
OE 01 AB 04 €1 0082 68: C #4, SETFILESFLAGS*+1, 7$ 
7E 04 AE 3C 0008 MOVZWL FINAL_PROT, -(SP) 


Pee Se Se Se Ge Se Ge Se Se Se Se Se Ge Se Se Se Se Ge Fe Se Se Se Fe Ge Se Se Ge Se Ge Ge Se Se Se Se Ge Se Se Se Fe Se Se Se Fe Se Ge Se Fe Se Be 


SEITE Resterae 0 O0:55:5)  YAK=Nt BL ing 52, v4 0-742 


09 PUSHL 
00000000v_ EF CALLS en PROT_LOG_RESULTS 
5 BH Be 7$: Ht #1, RO 


3; Routine Size: 201 bytes, Routine Base: SCODES + 142F 


a 
vO6-000 1eseontgu Mido:07 Ee iun saeSsete lee casest Page 48) 
ROUTINE prot_log_results (fab, final_prot): = 


leece 
i 
Functional description 


This routine is called from SETPRO_ACTION whenever 


Lt 
Logging for /PROTECTION is requested 
Input parameters 


i 

i 

i 

i 

i 

i 

! 

H fab = Address of block Gover tp tne the file 
: fabSl_nam = pointer to name bloc 
' 

i 

i 

i 

i 


Output parameters 
First error encountered, or TRUE is RETURNed 
BEGIN 


LITERAL 
pbufsize = 32; 


MAP fab: REF SBBLOCK; 
BIND nam = .fab(fab$i_nam]: SBBLOCK; 


Buffer for generating string 
Define fab block format 
Define name block 


status:, ' Recieves status 
pbuf: VECTOR(pbufsize,BYTE], ! Place for protection string 
pdesc: VECTOR 1 ° ' Temporary string descriptor 
desc: VECTORL 2], ! Temporary string descriptor 
100 prot_table: VECTOR(4); ! Protection string table 
3 , 
40 ! Now build the resultant protection string from the value passed 
404 ! in the call. 
if : 
40 expand_prot ( ' Call sub with 
$38 prot_table, : =ehace for the result 
rt t4 -final_prot); ! final protection value 
411 pdesc tO} = pbufsize; ! Initialize descriptor size 
tig pdesc(1) = pbuf; ! Initialize descriptor address 
414 ff NOT (status = 
415 P FAOL ' Call system service with 
aig eo CTRSTR = apenas st (*S:!AS,0:!AS,G:!AS,W:'AS'), ! -FAO i 
41 7 OUTLEN = pdesc(0J, : “place for resultant length 
418 P TBUF = pdesc, ' output buffer descriptor 
419 PRMLST = prot_table) ! eaddress of list of args 
¢30 ) THEN BEGIN 
421 SIGNAL (.status); ! Oops, tell the user 


| 9 
SETF 16-Sep-1 253: AX-11 Bliss-32 V4.0-742 P 2 
54-008 18-808-1 982 99:38:07 Yee rure sReise rr ice Boost age 8 
; 26 4 (. ); ! 
: é § é — status And exit immediately 
3 2625 4) SIGNAL (set$_protected, ' Inform user with 
: 24 $ ws ° ! two FAO arguements 
3; 26 4) conf_desc, ! file name 
3 re tis pdesc); ! ©new protection 
3 26 418 RETURN (true); 
3: 2431 41 
3; 24 418 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
21 SA 47 2C 53 41 1 SA GF ¢ 53 41 1 A 53 0046A8 P.AEG: .ASCII \S:!AS,0:!AS,G:!AS,W: !AS\<0> 3 
33 0h 3 ga $ bt 88 fF O8t88 
eae aed 04CO P.AEF: .LONG 23 $ 
0000000° 004C4 ADDRESS P.AEG é 


.EXTRN SYSS$FAOL 
-PSECT S$CODE$,NOWRT,2 

000C 00000 PROT_LOG_RESULTS: | 
WORD 


3; Routine Size: 


95 bytes, 


: Save R2,R3 ¢ 2351, 
53 000000006 00 9€ 90002 MOVAB LIBSSIGNAL, R3 : 
E AE 9E 000 MOVAB <-64(SP), SP ; | 
AC DD 00000 PUSHL FINAL PROT ; 2395, 
06 AE OF 9019 PUSHAB PROT TABLE : 2393, 
00000000v_ EF 9 FB 001 CALLS a EXPAND_PROT ; | 
18 «AE p OO1A MOVL #32, PDESC ; 3397 
1c AE 20 AE 9 9001 MOVAB PBUF, PDESC+4 : 2398 | 
SE 0D 000 PUSHL SP > 2405 
1¢ (AE OOF 900 PUSHAB PDESC : 
20 AE 9F 000 PUSHAB PDESC ; 
00000000" EF 9F 00028 PUSHAB P.AEF : 
000000006 99 4 FB 00031 CALLS #4, SYSSFAOL : | 
5 DO 000 MOVL RO, STATUS : 
09 E8 000 BLBS STATUS, 1$ ; 
52 OD 99 PUSHL STATUS > 2407 | 
63 o1 FB 4 CALLS #1, LIBSSIGNAL : 
50 2 i 04 ROVL STATUS, RO : 2408 
18 AE OOF boc? 1$: PUSHAB PDESC > 2411. 
00000000' EF 9F 0004A PUSHAB CONF _DESC ; 
2 DD PUSHL @# ; | 
000000006 8F DD PUSHL #SETS$_PROTECTED : | 
63 4 FB CALLS #4, LTBSS1GNAL : | 
50 1 p 9 8 MOVL #1. R ; 3416 
4 E RET : 2418 


Routine Base: 


SCODES + 14F8 


2 


BPP PEPE 


WMPwrn DONO ULSUT—O”0 


SPL EEEE 


PROPOR IIPIPPIPIPIPIPIPIPIPIPIPINIPIPIPIPIPIPIUINININIIY a8 at at at dt tt at at a tt 
@ . . . . * . 


iSseo-1964 0:55:51 yanctt OLieg-82 v4, 0-742 
ROUTINE expand _prot (table, protection): = 


! Functional description 

This routine, called from PROT_LOG_RESULTS, fills 
@ given VECTOR with the addresses of strings 
corresponding to &@ given protection word. 

i Input parameters 


' 
' 
' 
' 
' 
' 
' 
' 
: table = Address of the table to be filled in. 
: protection = Protection word. 

' 

' 

' 

' 

' 

' 


i Qutput parameters 


table has been filled in with the addresses of descriptors 
of strings describing each type of user (SYS,OWN,GRP,WORLD). 


BEGIN 
IND 
prot_table = .table: VECTOR(4); ! Table of addresses 
prot_values: VECTORC16) INITIAL‘ ! Protection descriptions 
KDDRDES ESC(*RWED'), 
ADDRDESC("WED'), 
ADDRDESC(*RED'), 
ADDRDESC("ED*) 
ADDRDESC(*RuD'S, 
ADDRDESC(*WD'), 
ADDRDESC('RD"), 
ADDRDESC("D*) 
ADDRDESC(*RWE*), 
ADDRDESC('WE'), 
ADDRDESC('RE*), 
ADDRDESC('E*) 
ADDRDESC('Rw'S, 
ADDRDESC('W'), 
ADDRDESC('R"), 
ADDRDESC(**)); 
INCR index FROM 0 TO ; dO 
prot_tableL.index] = .prot_values C.protection<. index*4,4>); 
RETURN (true); ! Always return true 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


Page 


83 
(16) 


————— > PRBS AL 
8c 18:69:67 


Roun; ister 
46 C8 p-AEl : 
CC P. AEH: 
00 D4 P.AEK: 
oe P.AEJ: 
00 26 P. AEM: 
EG P.AEL: 
00 EC P.AEO: 
6 P.AEN: 
00 F8 P.AEQ: 
FC P.AEP: 
00 P.AES: 
S P.AER: 
00 16 P.AEU: 
16 P.AET: 
: B35 bl 
00 0528 P.AEY: 
: P.AEX: 
00 4 09 AFA: 
0009 A} Bien: 
00 4 0540 P.AFC: 
00000 544 P.AFB: 
0000000" 00548 
00 000000003 90850 PLAFB; 
$6 90 , 00354 peat: 
00 oo a3 B-AFG: 
00 00 9 0564 P.AFI: 
00 1, oer P.AFH: 
wid al 3 PARED: 
00578 * 
900000 Bape PlARC: 
000000' 00580 


ponooneer gn000000" 90000000" 80000000" 90000000" Bo000000" boas 


ASCII _— 


el 
eADDRESS P.AEI 
-ASCI 


- LONG 
-ADDRESS 


P.AEK 
hee \RED\<0> 
«ADDRESS P.AEM 


ASCII 
«LONG 
“ADDRESS P.AEO 


SCII \RWD\<0> 


ol 
ADDRESS P.A 
ASCII 


«LONG 
eADDRESS P 
ASCII 


ok 
- ADDRESS 
ASCII 


ADDRESS P 
“ASCII 


- LON 
-ADDRES 
ASCII 
-LONG 
-ADDRESS P 
ASCII 


«LONG 
«ADDRESS P 
ASCII 


-LON 
-ADDRESS 
yt 


-LON 
- ADDRESS 
“ASCII 
» LONG 
"ADDRESS. P 
ASCII 
“LONG 
-ADDRESS P.AFK 
-BLKB 


+ LONG 
-ADDRESS P.AFM 


WED\<0> 


\RUE A 20> 


AX-11 B 
thiutee SR 


\ED\<0><0> 


-AEQ 
\WD\<0><0> 

AES 
\RD\<0><0> 


—— 


S P.AEY 
\WE\<0><0> 
AFA 
\RE\cO><0> 
\EX<O><0><0> 
\RUNcO><0> 
AFG 
apogee 


AFI 
\R\<0><0><0> 


-PSECT SOWNS,NOEXE ,2 
00000000* 00000000° 00000000° 00000000 00000000° 00000000" 00034 PROT_VALUES: 


32 v4.0-742 
aeisesr ice Bsoe1 


. 
° 


. 


51 


; Routine Size: 


08 AC 


32 bytes, 


Say 
04 "38 seenas 1 p 
1 


Routine Base: 


SCODES + 1557 


1besen-1964 09:55:51 


-PSECT 
00000 EXPAND_PRO: : 


2 LAL 
18: ASH 


bt 


SCODES ,NOWRT ,2 


AX-11 Bliss-32 V4.0-742 
CLIUTL.SRCJSET Fie 


R1 
TABLECINDEX 


E.832;1 


rag i be eee P eaeae SRR Pune | 


spn idee 3:08:07 Letom Sais ice ase Page 196 


DESC -- a descriptor pointing to the ASCII representation of the 
protection desired | 


: 7 rtf ROUTINE parse class (desc) = 
rt i “thie 
4 4 i This routine called from SETPRO_ACTION, parses one class of user 
4 § 47 ' (e.g. SYSTEM, OWNER RLD) to see what protection is allowed. 
49 47 i The value returned in the low 4 bits is the protection code, w th the 
494 47 ! bits set to ror sess that access is requested. Note that this is 
mee 47 : exactly the opposite of what the system wants. 
a3? Inputs: 
: 
$ 


BEGIN 


MAP desc : REF SBBLOCK; | 
LOCAL 

pointer, ! Pointer to es 

result; ! Resultant protection 


' 
: Initially set the value to all zeros, no access 


result = 0; 
‘ 


i Scan for the occurrence of each keyletter, and, if it is there, set the 
: appropriate bit. 


pointer = .desc(dsc$a_pointer); 
NCR index FROM 1 to .descldsc$w_tength) DO 


N 
LOCAL char : BYTE; 
char = CHSRCHAR_A(pointer); 
IF .char EQL‘R' 
THEN result = grooute on Zx'1° 


THEN result = result OR %x‘2" 


char EQL ‘P* 
THEN result = groryat OR %x°4" 
OR .char EQL ‘L’ 
result = .result OR %x°8' 
ELSE SIGNAL_STOP (set$_syntax, 1, .desc); 
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SESE SSS VSO RON 
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QPUPVPUDPUPVD FUP PUSPATI 


8 ed ed ed ed 
oO Mun SOU MRM “OODNAMRUNVOOSH Ue RRS 
4 Foy oY oY oY oe oe oy = 
LESLELLES 
IPI INNA AINA AIP PUNINI PIPPI NINIPIPIPOPUPIPIPUDINOIYD 8 9 tt ot ot 


RMroPoNN a 


Seen eee eee eal sh sb sb db db cdbedh Ab db db Ab Ah Ab Ah Ab Ah Ab ab Ab Ab Ab Ah ab Ah ah Ah al 


Fwnr CO O@nouws 


RETURN .result; 
END; 


, a 
oO 


52 


57 


45 
50 


4G 
4C 


000000006 ; 


Routine Base: 


007710FA 


oO 


Vo > > 
WrNoO 
NWO 


OD 


Nuon 
oa 
af 


0 
0 
0 
0 
0 
0 


04 


~ 
et 


FRARINISASESNRASROUMMAOM— 


CONT 00 3040000 0-00 
RSUDSSS Soon eu oon ete een een 


—OOomMmo, 


SCODES + 1577 


8c 13:05:07 ae 


007C 00000 PARSE_CLASS: 
WORD 


. aa 


#82 * 


#2, RESULT 

CHAR, #69 
AR, #80 

#4, RESULT 

CHAR, #68 
HAR, #76 

#8, RESULT 

8$ 

- 

: 7803130 
#3, LIBSSTOP 


ey wen, 18 


tis ee ite’s asoe1 


3,R4,R5,R6 


SEITE bere 00:53:51 YAKCIY BL ts9-82, v4, 0042, 
: 3548 3335 3 EYoon 


«EXTRN LIBSSIGNAL, LIBSSTOP 


; PSECT SUMMARY 

: Name Bytes Attributes 

; ALS 1112 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON NOB ICAL IGN(2) 

3 116 NOVEC, WRT, RDO, a ‘SSun LCL, REL, CON,NOPIC,ALIGN(2) 

3 1T$ 14 NOVEC,NOWRT, RD, LCL, REL, CON,NOPIC,ALIGN(2) 

3; SCODES 55 NOVEC,NOWRT, RD, LCL, REL, CON,NOPIC,ALIGN(2) 

3 2 MS NOVEC ,NOWRT , NORD * NOE XE. NOSh: LCL, ABS, CON,NOPIC,ALIGN(O) 

; Library Statistics 

; cocococce Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28: SYSLIBIL1B 13251 18619 224 1 1000 00:01.9 

; ~$255$0UA28:CSYSLIBICLIMAC.L32;1 14 0 0 S 00:00.1 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SETFILE/OBJ=OBJ$:SETFILE MSRCS$:SETFILE/UPDATE=(ENHS:SETFILE) 
Size: 5596 coge + 2640 data bytes 


Run Time: 3138 
Elapsed Time: 5: 3:29: 
Lines/CPU Min: 
,onenes/CPy=Aio: 2386 
penery 780 pages 
Compi ay Complete 


att 5 


005 AH-BT13A-SE EQUIPMENT CORPORAT 
| VAX/VMS V4.0 NTIAL AND PROPRIETA 


ION 
RY 


